version 1.56, 2013/03/16 11:31:41
|
version 1.57, 2013/03/16 20:11:29
|
Line 96 instruction_format(struct_processus *s_e
|
Line 96 instruction_format(struct_processus *s_e
|
printf(" { \"CHARACTER*(*)\" }\n"); |
printf(" { \"CHARACTER*(*)\" }\n"); |
printf(" { \"CHARACTER*(%s)\" }\n", d_INT); |
printf(" { \"CHARACTER*(%s)\" }\n", d_INT); |
printf(" { \"BINARY*%s(*)\" }\n", d_INT); |
printf(" { \"BINARY*%s(*)\" }\n", d_INT); |
printf(" { \"BINARY*%s(%s)\" }\n\n", d_INT, d_INT); |
printf(" { \"BINARY*%s(%s)\" }\n", d_INT, d_INT); |
|
printf(" { \"NATIVE*(*)\" }\n\n"); |
|
|
printf(" UNFORMATTED\n"); |
printf(" UNFORMATTED\n"); |
printf(" { \"INTEGER*1\", \"INTEGER*2\", \"INTEGER*4\", " |
printf(" { \"INTEGER*1\", \"INTEGER*2\", \"INTEGER*4\", " |
Line 105 instruction_format(struct_processus *s_e
|
Line 106 instruction_format(struct_processus *s_e
|
"\"LOGICAL*8\" }\n"); |
"\"LOGICAL*8\" }\n"); |
printf(" { \"REAL*4\", \"REAL*8\" }\n"); |
printf(" { \"REAL*4\", \"REAL*8\" }\n"); |
printf(" { \"COMPLEX*8\", \"COMPLEX*16\" }\n"); |
printf(" { \"COMPLEX*8\", \"COMPLEX*16\" }\n"); |
printf(" { \"CHARACTER*(*)\" \"CHARACTER*(%s)\" }\n\n", d_INT); |
printf(" { \"CHARACTER*(*)\", \"CHARACTER*(%s)\" }\n", d_INT); |
|
printf(" { \"NATIVE*(*)\" }\n\n"); |
|
|
printf(" FLOW\n"); |
printf(" FLOW\n"); |
printf(" { \"LENGTH*(*)\" }\n"); |
printf(" { \"LENGTH*(*)\" }\n"); |