The example below shows how to access the location and the name of the currently opened Autodyn file. The variables FDPRNT and FNID from the module fildef provide the directory and the name. If you compile the example below, launch the usersub exe file, open an Autodyn ad file and execute EXEDIT, the subtoutine will check get the location and the name of the file and open a text file with the same name as the ad file, but with the extension _OUTPUT.log in the working directory and will write the string “Hello World!” to text file.<\/p>\n
! BEGIN EXAMPLE<\/p>\n
SUBROUTINE EXEDIT3<\/p>\n
USE kindef, ONLY: INT4
USE fildef, ONLY : FDPRNT, FNID
USE mdpp , ONLY : MYTASK
IMPLICIT NONE<\/p>\n
INTEGER(INT4) :: I,J,K,KK, ICHK, IOS, NUNIT
CHARACTER(LEN=256) :: FNAME
CHARACTER (LEN=5) :: TEXT5
DO I = 256, 1, -1
IF (FNID(I:I)\/=’ ‘) EXIT
END DO
DO J = 256, 1, -1
IF (FDPRNT(J:J)\/=’ ‘) EXIT
END DO<\/p>\n
! Include the task number in the log file
CALL CONITC (MYTASK,TEXT5)
DO K = 2,5
IF (TEXT5(K:K)==’$’) EXIT
KK = K
END DO<\/p>\n
FNAME = FDPRNT(1:J)\/\/’\/’\/\/FNID(1:i)\/\/’_OUTPUT’\/\/TEXT5(2:KK)\/\/’.log’
NUNIT = 78 ! HOPEFULLY FREE UNIT<\/p>\n
OPEN(UNIT=NUNIT,NAME=FNAME,FORM=’FORMATTED’, IOSTAT=IOS)
WRITE (NUNIT,*,IOSTAT=IOS) ‘Hello World!’
CLOSE (NUNIT)<\/p>\n
END SUBROUTINE EXEDIT3<\/p>\n","protected":false},"template":"","class_list":["post-157894","topic","type-topic","status-publish","hentry","topic-tag-autodyn","topic-tag-solver"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t