VO 0 0 103 0 0 0
MODULE F90_UNIX,0 1 0 0 0
FILE 0,f90_unix.f90
USE F90_UNIX_IO 0,ONLY:HIDDEN_FLUSH=>FLUSH
USE F90_UNIX_ENV 0,ONLY:CLOCK_TICKS_PER_SECOND=>CLK_TCK,HIDDEN_GETENV=>GETENV,TIMES=>TIMES,TMS=>TMS,CLOCK_TICK_KIND=>CLOCK_TICK_KIND,HIDDEN_GETARG=>GETARG,IARGC=>IARGC,GETGID=>GETGID,GETUID=>GETUID,GETPID=>GETPID
USE F90_UNIX_PROC 0,ONLY:EXIT=>EXIT,ABORT=>ABORT
REF HIDDEN_GETARG(GETARG@F90_UNIX_ENV),2
REF HIDDEN_GETENV(GETENV@F90_UNIX_ENV),2
REF HIDDEN_FLUSH(FLUSH@F90_UNIX_IO),2
PROC FLUSH,1,8,0,17,0: 8,0,0,0,0,0,40200,1,0,0,0
VAR LUNIT,3,,: 1,103,3,0,0,0,3,0,0,1000,1
ENDPROC
PROC GETARG,2,8,0,17,0: 8,0,0,0,0,0,40200,1,0,0,0
VAR K,3,,: 1,103,3,0,0,0,3,0,0,1000,1
VAR ARG,3,,: 3,646,a,-1,0,0,3,0,0,1000,2
ENDPROC
PROC GETENV,2,8,0,17,0: 8,0,0,0,0,0,40200,1,0,0,0
VAR NAME,3,,: 3,646,a,-1,0,0,3,0,0,1000,1
VAR VALUE,3,,: 3,646,a,-1,0,0,3,0,0,1000,2
ENDPROC
END
