version 1.54, 2013/02/27 17:11:42
|
version 1.56, 2013/03/16 11:31:41
|
Line 105 instruction_format(struct_processus *s_e
|
Line 105 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\" }\n\n"); |
printf(" { \"CHARACTER*(*)\" \"CHARACTER*(%s)\" }\n\n", d_INT); |
|
|
printf(" FLOW\n"); |
printf(" FLOW\n"); |
printf(" { \"LENGTH*(*)\" }\n"); |
printf(" { \"LENGTH*(*)\" }\n"); |
Line 540 instruction_fleche_q(struct_processus *s
|
Line 540 instruction_fleche_q(struct_processus *s
|
|
|
if (y != 0) |
if (y != 0) |
{ |
{ |
z = fabs(objectif - (r1 / r2)); |
z = abs(objectif - (r1 / r2)); |
x = ((real8) 1) / y; |
x = ((real8) 1) / y; |
} |
} |
else |
else |