G95 module created from ftcl_mod.f90 on Mon Jul 19 13:25:03 2004 If you edit this, you'll get what you deserve. (() () () () () () () () () () () () () () () () () () () ()) () (('ftcl_get' '' 2 3 4 5 6 7 8) ('ftcl_put' '' 9 10 11 12 13 14 15)) () (16 'ftcl_get' '(global)' 1 ((PROCEDURE UNKNOWN UNKNOWN UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 ()) 0 0 () () () () ()) 5 'ftcl_get_double' '(global)' 1 ((PROCEDURE UNKNOWN UNKNOWN BODY SUBROUTINE) (UNKNOWN 0 ()) 17 0 (18 19) () () () ()) 7 'ftcl_get_real' '(global)' 1 ((PROCEDURE UNKNOWN EXTERNAL BODY SUBROUTINE) (UNKNOWN 0 ()) 20 0 (21 22) () () () ()) 6 'ftcl_get_log' '(global)' 1 ((PROCEDURE UNKNOWN UNKNOWN BODY SUBROUTINE) (UNKNOWN 0 ()) 23 0 (24 25) () () () ()) 4 'ftcl_get_string' '(global)' 1 ((PROCEDURE UNKNOWN UNKNOWN BODY SUBROUTINE) (UNKNOWN 0 ()) 26 0 (27 28) () () () ()) 2 'ftcl_get_real_array' 'ftcl' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL SUBROUTINE) (PROCEDURE 0 ()) 0 0 (29 30) () () () ()) 3 'ftcl_get_int_array' 'ftcl' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL SUBROUTINE) (PROCEDURE 0 ()) 0 0 (31 32) () () () ()) 33 'ftcl_init_log' 'ftcl' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL SUBROUTINE) (PROCEDURE 0 ()) 0 0 (34 35) () () () ()) 15 'ftcl_put_int' '(global)' 1 ((PROCEDURE UNKNOWN EXTERNAL BODY SUBROUTINE) (UNKNOWN 0 ()) 36 0 (37 38) () () () ()) 13 'ftcl_put_double' '(global)' 1 ((PROCEDURE UNKNOWN UNKNOWN BODY SUBROUTINE) (UNKNOWN 0 ()) 39 0 (40 41) () () () ()) 42 'ftcl_put' '(global)' 1 ((PROCEDURE UNKNOWN UNKNOWN UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 ()) 0 0 () () () () ()) 8 'ftcl_get_int' '(global)' 1 ((PROCEDURE UNKNOWN EXTERNAL BODY SUBROUTINE) (UNKNOWN 0 ()) 43 0 (44 45) () () () ()) 46 'ftcl' 'ftcl' 1 ((MODULE UNKNOWN UNKNOWN UNKNOWN) (UNKNOWN 0 ()) 0 0 () () () () ()) 14 'ftcl_put_real' '(global)' 1 ((PROCEDURE UNKNOWN EXTERNAL BODY SUBROUTINE) (UNKNOWN 0 ()) 47 0 (48 49) () () () ()) 12 'ftcl_put_log' '(global)' 1 ((PROCEDURE UNKNOWN UNKNOWN BODY SUBROUTINE) (UNKNOWN 0 ()) 50 0 (51 52) () () () ()) 9 'ftcl_put_real_array' 'ftcl' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL SUBROUTINE) (PROCEDURE 0 ()) 0 0 (53 54) () () () ()) 55 'ftcl_start' '(global)' 1 ((PROCEDURE UNKNOWN UNKNOWN BODY SUBROUTINE) (UNKNOWN 0 ()) 56 0 (57 58) () () () ()) 59 'ftcl_script' '(global)' 1 ((PROCEDURE UNKNOWN UNKNOWN BODY SUBROUTINE) (UNKNOWN 0 ()) 60 0 (61) () () () ()) 11 'ftcl_put_string' '(global)' 1 ((PROCEDURE UNKNOWN UNKNOWN BODY SUBROUTINE) (UNKNOWN 0 ()) 62 0 (63 64) () () () ()) 10 'ftcl_put_int_array' 'ftcl' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL SUBROUTINE) (PROCEDURE 0 ()) 0 0 (65 66) () () () ()) 45 'int_value' '' 43 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () () () ()) 44 'varname' '' 43 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 21 'varname' '' 20 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 24 'varname' '' 23 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 25 'log_value' '' 23 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (LOGICAL 4 ()) 0 0 () () () () ()) 18 'varname' '' 17 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 28 'string' '' 26 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 27 'varname' '' 26 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 37 'varname' '' 36 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 19 'double_value' '' 17 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () () () ()) 48 'varname' '' 47 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 49 'real_value' '' 47 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0 () () () () ()) 38 'int_value' '' 36 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () () () ()) 22 'real_value' '' 20 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0 () () () () ()) 40 'varname' '' 39 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 41 'double_value' '' 39 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () () () ()) 51 'varname' '' 50 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 52 'log_value' '' 50 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (LOGICAL 4 ()) 0 0 () () () () ()) 64 'string' '' 62 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 57 'filename' '' 56 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) ( CHARACTER 1 (())) 0 0 () () () () ()) 58 'exename' '' 56 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 34 'true_value' '' 67 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) ( LOGICAL 4 ()) 0 0 () () () () ()) 32 'int_array' '' 68 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 ()) 0 0 () () (1 ASSUMED_SHAPE () ()) () ()) 31 'varname' '' 68 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 35 'false_value' '' 67 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) ( LOGICAL 4 ()) 0 0 () () () () ()) 61 'script' '' 60 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 63 'varname' '' 62 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 30 'real_array' '' 69 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DIMENSION DUMMY) (REAL 4 ()) 0 0 () () (1 ASSUMED_SHAPE () ()) () ()) 66 'int_array' '' 70 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 ()) 0 0 () () (1 ASSUMED_SHAPE () ()) () ()) 53 'varname' '' 71 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 54 'real_array' '' 71 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DIMENSION DUMMY) (REAL 4 ()) 0 0 () () (1 ASSUMED_SHAPE () ()) () ()) 65 'varname' '' 70 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) 29 'varname' '' 69 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () () () ()) ) ('ftcl_put_int_array' 0 10 'ftcl' 0 46 'ftcl_get_int' 0 8 'ftcl_get_double' 0 5 'ftcl_get' 0 16 'ftcl_put' 0 42 'ftcl_init_log' 0 33 'ftcl_get_int_array' 0 3 'ftcl_get_real_array' 0 2 'ftcl_get_log' 0 6 'ftcl_get_real' 0 7 'ftcl_get_string' 0 4 'ftcl_put_double' 0 13 'ftcl_put_int' 0 15 'ftcl_put_string' 0 11 'ftcl_put_real_array' 0 9 'ftcl_put_log' 0 12 'ftcl_put_real' 0 14 'ftcl_script' 0 59 'ftcl_start' 0 55)