TruCluster
cancel
Showing results for 
Search instead for 
Did you mean: 

sth wrong when run mpi-f90 program on tru64unix4.0 with digital fortran 4 on alpha500MHz

HM Li
Advisor

sth wrong when run mpi-f90 program on tru64unix4.0 with digital fortran 4 on alpha500MHz

When i run my mpi-f90 program on tru64unix4.0 with digital fortran 4 on alpha500MHz-CPU, there is some error:

trap:user program exception, pe_num=142:3
exc_type=5 exc_code=fffffffffffffffa exc_subcode=0
PC=1200a5858 RA=1200a4f90 A0=fffffffffffffffa A1=0 A2=56
forrtl: info: Fortran error message number is 65.
(error (65): Floating invalid FOR$IOS_FLTINV. During an arithmetic operation, the floating-point values used in a calculation were invalid for the type of operation requested or invalid exceptional values. For example, when requesting a log of the floating-point values 0.0 or a negative number. For certain arithmetic expressions, specifying the -check nopower option can suppress this message (see Section 3.17). For information on allowing exceptional IEEE values)

The below code is part of the output of 'dis -S myprogram':
0x1200a5824: 205ffff9 lda t1, -7(zero)
0x1200a5828: f620000d bne a1, 0x1200a5860
0x1200a582c: 201ffffa lda v0, -6(zero)
0x1200a5830: 402415b0 cmpeq t0, 0x20, a0
0x1200a5834: 46000482 cmoveq a0, v0, t1
0x1200a5838: 207ffffb lda t2, -5(zero)
0x1200a583c: 402215b1 cmpeq t0, 0x10, a1
0x1200a5840: 46220483 cmoveq a1, t1, t2
0x1200a5844: 221ffffd lda a0, -3(zero)
0x1200a5848: 402115a1 cmpeq t0, 0x8, t0
0x1200a584c: 2ffe0000 ldq_u zero, 0(sp)
0x1200a5850: 44230490 cmoveq t0, t2, a0
0x1200a5854: 000000aa call_pal gentrap
0x1200a5858: 6bfa8001 ret zero, (ra), 1 !ERROR
0x1200a585c: 2ffe0000 ldq_u zero, 0(sp)
0x1200a5860: 221ffffc lda a0, -4(zero)
0x1200a5864: 000000aa call_pal gentrap
0x1200a5868: 6bfa8001 ret zero, (ra), 1

I can't find where is error.
If i run the serial version, I can find the error through this way:

UXP(i)=-UX*SAP(i)-UZ*CAP(i)

at here UXP, SAP and CAP are real arrays and UX, UZ are real numbers.

Can u help me?
Thanks!