usera_open.for

来自「两维弹性边界元程序」· FOR 代码 · 共 58 行

!For User
! to OPEN CHANNELS for use in POST PROCESSING or so
!Opened channels here are set open through the program execution.
!DON'T use channel 51 in this place, which is used in MAINPROGRAM.
***************************************************
	Subroutine User_Open
	Common/Example/NthExample
*================================================================
	If(NthExample.eq.1) then
	 Call Ex1_User_Open
	 return
	elseif(NthExample.eq.2) then
	 Call Ex2_User_Open
	 return
	elseif(NthExample.eq.3) then
	 Call Ex3_User_Open
	 return
	elseif(NthExample.eq.4) then
	 Call Ex4_User_Open
	 return
	endif
*================================================================
	Open(11,file='ZSIF.txt',status='unknown')
	Open(12,file='ZInterSs.txt',status='unknown')
*================================================================
	return
	end
***************************************************
	Subroutine Ex1_User_Open
*================================================================
	Open(11,file='ZSIF.txt',status='unknown')
	Open(12,file='ZInterSs.txt',status='unknown')
*================================================================
	return
	end
***************************************************
	Subroutine Ex2_User_Open
*================================================================
	Open(11,file='ZSIF.txt',status='unknown')
*================================================================
	return
	end
***************************************************
	Subroutine Ex3_User_Open
*================================================================
	Open(11,file='ZSurf.txt',status='unknown')
*================================================================
	return
	end
***************************************************
	Subroutine Ex4_User_Open
*================================================================
	Open(11,file='ZSIF.txt',status='unknown')
	Open(12,file='ZUP.txt',status='unknown')
*================================================================
	return
	end