Dear All, I get "field slope out of range" in type 30 if I put a negative value (which is teoretically allowed in the proforma). The following statement in the code could be the reason: IF(SLFLD.GE.0.0 .AND. SLFLD.LE.SLCL .AND. SLFLD.LT.1.50) GO TO 77 CALL TYPECK(4,INFO,NI,NP,0) CALL MESSAGES(-1,'Field Slope is out of range','fatal',INFO(1),INFO(2)) Any suggestion? kind regards, Giovanni Nurzia Crosswire, il gioco delle relazioni. Sei pronto per la sfida? |