rpl/src/instructions_f3.c - diff

Return to instructions_f3.c CVS log

Up to [local] / rpl / src

version 1.53, 2013/02/26 19:56:14	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-2013 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(" { \"REAL4\", \"REAL8\" }\n");	printf(" { \"REAL4\", \"REAL8\" }\n");
printf(" { \"COMPLEX8\", \"COMPLEX16\" }\n");	printf(" { \"COMPLEX8\", \"COMPLEX16\" }\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