version 1.52, 2012/12/19 09:58:24
|
version 1.56, 2013/03/16 11:31:41
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.12 |
RPL/2 (R) version 4.1.13 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
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 |