33 |
c == end of interface == |
c == end of interface == |
34 |
|
|
35 |
c check for consistency |
c check for consistency |
36 |
if (.NOT. |
if (.NOT. |
37 |
& (exf_iprec .EQ. 32 .OR. exf_iprec .EQ. 64) |
& (exf_iprec.EQ.precFloat32 .OR. exf_iprec.EQ.precFloat64) |
38 |
& ) then |
& ) then |
39 |
stop 'S/R EXF_CHECK: value of exf_iprec not allowed' |
stop 'S/R EXF_CHECK: value of exf_iprec not allowed' |
40 |
elseif (.NOT. |
elseif ( exf_yftype.NE.'RL' ) then |
|
& (exf_yftype .EQ. 'RS' .OR. |
|
|
& exf_yftype .EQ. 'RL') |
|
|
& ) then |
|
41 |
stop 'S/R EXF_CHECK: value of exf_yftype not allowed' |
stop 'S/R EXF_CHECK: value of exf_yftype not allowed' |
42 |
endif |
endif |
43 |
|
|