1*----------------------------------------------------------------------- 2* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. 3*----------------------------------------------------------------------- 4 SUBROUTINE GRSTRF 5 6 7 CALL GLRGET('RUNDEF',RUNDEF) 8 9 CALL SGIGET('ITR',ITR) 10 11 CALL SGRGET('VXMIN',VXMIN) 12 IF (VXMIN.EQ.RUNDEF) THEN 13 CALL MSGDMP('E','GRSTRF','VXMIN IS NOT DEFINED.') 14 END IF 15 CALL SGRGET('VXMAX',VXMAX) 16 IF (VXMAX.EQ.RUNDEF) THEN 17 CALL MSGDMP('E','GRSTRF','VXMAX IS NOT DEFINED.') 18 END IF 19 CALL SGRGET('VYMIN',VYMIN) 20 IF (VYMIN.EQ.RUNDEF) THEN 21 CALL MSGDMP('E','GRSTRF','VYMIN IS NOT DEFINED.') 22 END IF 23 CALL SGRGET('VYMAX',VYMAX) 24 IF (VYMAX.EQ.RUNDEF) THEN 25 CALL MSGDMP('E','GRSTRF','VYMAX IS NOT DEFINED.') 26 END IF 27 28 IF (1.LE.ITR .AND. ITR.LE.4) THEN 29 CALL SGRGET('UXMIN',UXMIN) 30 IF (UXMIN.EQ.RUNDEF) THEN 31 CALL MSGDMP('E','GRSTRF','UXMIN IS NOT DEFINED.') 32 END IF 33 CALL SGRGET('UXMAX',UXMAX) 34 IF (UXMAX.EQ.RUNDEF) THEN 35 CALL MSGDMP('E','GRSTRF','UXMAX IS NOT DEFINED.') 36 END IF 37 CALL SGRGET('UYMIN',UYMIN) 38 IF (UYMIN.EQ.RUNDEF) THEN 39 CALL MSGDMP('E','GRSTRF','UYMIN IS NOT DEFINED.') 40 END IF 41 CALL SGRGET('UYMAX',UYMAX) 42 IF (UYMAX.EQ.RUNDEF) THEN 43 CALL MSGDMP('E','GRSTRF','UYMAX IS NOT DEFINED.') 44 END IF 45 ELSE IF (5.LE.ITR .AND. ITR.LE.7) THEN 46 CALL SGRGET('SIMFAC',SIMFAC) 47 IF (SIMFAC.EQ.RUNDEF) THEN 48 CALL MSGDMP('E','GRSTRF','SIMFAC IS NOT DEFINED.') 49 END IF 50 CALL SGRGET('VXOFF',VXOFF) 51 IF (VXOFF.EQ.RUNDEF) THEN 52 CALL MSGDMP('E','GRSTRF','VXOFF IS NOT DEFINED.') 53 END IF 54 CALL SGRGET('VYOFF',VYOFF) 55 IF (VYOFF.EQ.RUNDEF) THEN 56 CALL MSGDMP('E','GRSTRF','VYOFF IS NOT DEFINED.') 57 END IF 58 ELSE IF (10.LE.ITR .AND. ITR.LE.24 .OR. 59 + 30.LE.ITR .AND. ITR.LE.34 ) THEN 60 CALL SGRGET('SIMFAC',SIMFAC) 61 IF (SIMFAC.EQ.RUNDEF) THEN 62 CALL MSGDMP('E','GRSTRF','SIMFAC IS NOT DEFINED.') 63 END IF 64 CALL SGRGET('VXOFF',VXOFF) 65 IF (VXOFF.EQ.RUNDEF) THEN 66 CALL MSGDMP('E','GRSTRF','VXOFF IS NOT DEFINED.') 67 END IF 68 CALL SGRGET('VYOFF',VYOFF) 69 IF (VYOFF.EQ.RUNDEF) THEN 70 CALL MSGDMP('E','GRSTRF','VYOFF IS NOT DEFINED.') 71 END IF 72 CALL SGRGET('PLX',PLX) 73 IF (PLX.EQ.RUNDEF) THEN 74 CALL MSGDMP('E','GRSTRF','PLX IS NOT DEFINED.') 75 END IF 76 CALL SGRGET('PLY',PLY) 77 IF (PLY.EQ.RUNDEF) THEN 78 CALL MSGDMP('E','GRSTRF','PLY IS NOT DEFINED.') 79 END IF 80 CALL SGRGET('PLROT',PLROT) 81 IF (PLROT.EQ.RUNDEF) THEN 82 CALL MSGDMP('E','GRSTRF','PLROT IS NOT DEFINED.') 83 END IF 84 CALL SGRGET('TXMIN',TXMIN) 85 IF (TXMIN.EQ.RUNDEF) THEN 86 CALL MSGDMP('E','GRSTRF','TXMIN IS NOT DEFINED.') 87 END IF 88 CALL SGRGET('TXMAX',TXMAX) 89 IF (TXMAX.EQ.RUNDEF) THEN 90 CALL MSGDMP('E','GRSTRF','TXMAX IS NOT DEFINED.') 91 END IF 92 CALL SGRGET('TYMIN',TYMIN) 93 IF (TYMIN.EQ.RUNDEF) THEN 94 CALL MSGDMP('E','GRSTRF','TYMIN IS NOT DEFINED.') 95 END IF 96 CALL SGRGET('TYMAX',TYMAX) 97 IF (TYMAX.EQ.RUNDEF) THEN 98 CALL MSGDMP('E','GRSTRF','TYMAX IS NOT DEFINED.') 99 END IF 100 END IF 101 102 CALL SGSTRF 103 104 END 105