413
442
def p_expression_if(self,p):
414
443
"expression : expression IF boolexpression ELSE expression "
415
444
p[0] = 'MP_CONDIF(%s,CMPLX(%s,KIND=16),CMPLX(%s,KIND=16))' % (p[3], p[1], p[5])
417
447
def p_expression_ifimplicit(self,p):
418
448
"expression : expression IF expression ELSE expression "
419
449
p[0] = 'MP_CONDIF(CMPLX(%s,KIND=16).NE.(0.0e0_16,0.0e0_16),CMPLX(%s,KIND=16),CMPLX(%s,KIND=16))'\
422
453
def p_expression_complex(self, p):
423
454
"expression : COMPLEX '(' expression ',' expression ')'"
424
455
p[0] = 'CMPLX(' + p[3] + ',' + p[5] + ',KIND=16)'