71 |
& + act3*max0*max1*max2 |
& + act3*max0*max1*max2 |
72 |
& + act4*max0*max1*max2*max3 |
& + act4*max0*max1*max2*max3 |
73 |
kkey = (igadkey-1)*Nr + k |
kkey = (igadkey-1)*Nr + k |
74 |
if (tracerIdentity.GT.maxpass) |
if (tracerIdentity.GT.maxpass) then |
75 |
& STOP 'maxpass seems smaller than tracerIdentity' |
print *, 'ph-pass gmredi_ytrans ', maxpass, tracerIdentity |
76 |
|
STOP 'maxpass seems smaller than tracerIdentity' |
77 |
|
endif |
78 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
79 |
|
|
80 |
IF (useGMRedi) THEN |
IF (useGMRedi) THEN |