/dports/science/cdcl/dcl-5.4.8-C/src/math1/syslib/ |
H A D | NOTE | 80 * LCHREQ に関する注意 100 LCHREQ=.TRUE. 115 LCHREQ=.FALSE. 117 IF (.NOT.LCHREQ) RETURN 126 IF (.NOT.LCHREQ) RETURN 131 IF (.NOT.LCHREQ) RETURN 146 LCHREQ=.TRUE. 157 LCHREQ=LCHREQ.AND.(CX1.EQ.CX2) 158 IF (.NOT.LCHREQ) RETURN 166 IF (.NOT.LCHREQ) RETURN [all …]
|
/dports/science/dcl/dcl-5.4.8/src/math1/syslib/ |
H A D | NOTE | 80 * LCHREQ に関する注意 100 LCHREQ=.TRUE. 115 LCHREQ=.FALSE. 117 IF (.NOT.LCHREQ) RETURN 126 IF (.NOT.LCHREQ) RETURN 131 IF (.NOT.LCHREQ) RETURN 146 LCHREQ=.TRUE. 157 LCHREQ=LCHREQ.AND.(CX1.EQ.CX2) 158 IF (.NOT.LCHREQ) RETURN 166 IF (.NOT.LCHREQ) RETURN [all …]
|
H A D | lchreq.f | 6 LOGICAL FUNCTION LCHREQ(CH1,CH2) 11 LCHREQ=.TRUE. 22 LCHREQ=(IDX2-IDX1).EQ.32 24 LCHREQ=(IDX1-IDX2).EQ.32 26 LCHREQ=.FALSE. 28 IF (.NOT.LCHREQ) RETURN 36 LCHREQ=ICHAR(CH1(I:I)).EQ.IBLK 37 IF (.NOT.LCHREQ) RETURN 41 LCHREQ=ICHAR(CH2(I:I)).EQ.IBLK 42 IF (.NOT.LCHREQ) RETURN
|
H A D | rpnxfl.f | 13 LOGICAL LCHREQ, LFROMC local 17 EXTERNAL LCHREQ, LENC, IUFOPN, IFROMC, LFROMC, RFROMC 71 IF (LCHREQ(CPX, CPARA(N))) THEN 88 IF (LCHREQ(CPX, CPARA(N))) THEN 105 IF (LCHREQ(CPX, CPARA(N))) THEN 122 IF (LCHREQ(CPX, CPARA(N))) THEN 135 IF (LCHREQ(CP, CPARA(N))) THEN 150 IF (LCHREQ(CP,CPARA(N))) THEN 165 IF (LCHREQ(CP,CPARA(N))) THEN 180 IF (LCHREQ(CP, CPARA(N))) THEN
|
H A D | rpnopt.f | 11 LOGICAL LCHREQ, LFROMC local 14 EXTERNAL LCHREQ, LENC, IFROMC, LFROMC, RFROMC 43 IF (LCHREQ(CARG(1:NP-1), CPX)) THEN 63 IF (LCHREQ(CARG(1:NP-1), CPX)) THEN 83 IF (LCHREQ(CARG(1:NP-1), CPX)) THEN 103 IF (LCHREQ(CARG(1:NP-1), CPX)) THEN 123 IF (LCHREQ(CARG(1:NP-1), CPX)) THEN 143 IF (LCHREQ(CARG(1:NP-1), CPX)) THEN 163 IF (LCHREQ(CARG(1:NP-1), CPX)) THEN 183 IF (LCHREQ(CARG(1:NP-1), CPX)) THEN
|
/dports/science/dcl/dcl-5.4.8/src/env2/dclpara/ |
H A D | dclpara.f | 6 LOGICAL LCHREQ variable 9 EXTERNAL LCHREQ 35 IF (LCHREQ(CGRP,'GLP')) THEN 37 ELSE IF (LCHREQ(CGRP,'GLC')) THEN 39 ELSE IF (LCHREQ(CGRP,'SGP')) THEN 41 ELSE IF (LCHREQ(CGRP,'SWP')) THEN 43 ELSE IF (LCHREQ(CGRP,'SWC')) THEN 45 ELSE IF (LCHREQ(CGRP,'UCP')) THEN 47 ELSE IF (LCHREQ(CGRP,'UDP')) THEN 49 ELSE IF (LCHREQ(CGRP,'UEP')) THEN [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph1/swpack/ |
H A D | swqfnm.f | 10 LOGICAL LCHREQ local 14 EXTERNAL LENC,LCHREQ 30 IF ( LCHREQ(CPARA,'FONT1') 31 + .OR. LCHREQ(CPARA,'FONT2') 32 + .OR. LCHREQ(CPARA,'CL2TN') 33 + .OR. LCHREQ(CPARA,'CMAPLIST')) THEN 36 ELSE IF ( LCHREQ(CPARA,'CLRMAP') 37 + .OR. LCHREQ(CPARA,'BITMAP')) THEN
|
H A D | swrqnp.f | 13 LOGICAL LCHREQ, LFIRST local 18 EXTERNAL LCHREQ,LENC 40 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 105 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
/dports/science/dcl/dcl-5.4.8/src/misc1/fiolib/ |
H A D | fcpack.f | 17 EXTERNAL LCHREQ,LENC 49 IF (LCHREQ(CS(IOU),'C')) THEN 71 IF (.NOT.(LCHREQ(CACT(1:1),'R') .OR. LCHREQ(CACT(1:1),'W'))) THEN 80 IF (LCHREQ(CACT(1:1),'R')) THEN 84 ELSE IF (LCHREQ(CACT(1:1),'W')) THEN 94 IF (LCHREQ(CACT(1:1),'R')) THEN 151 IF (LCHREQ(CS(IOU),'R')) THEN 162 IF (.NOT.LCHREQ(CS(IOU),'R')) THEN 176 IF (.NOT.LCHREQ(CS(IOU),'W')) THEN 194 IF (.NOT.LCHREQ(CS(IOU),'R')) THEN [all …]
|
/dports/science/dcl/dcl-5.4.8/src/misc1/fiolib.win/ |
H A D | fcpack.f | 15 EXTERNAL LCHREQ,LENC 47 IF (LCHREQ(CS(IOU),'C')) THEN 69 IF (.NOT.(LCHREQ(CACT(1:1),'R') .OR. LCHREQ(CACT(1:1),'W'))) THEN 78 IF (LCHREQ(CACT(1:1),'R')) THEN 82 ELSE IF (LCHREQ(CACT(1:1),'W')) THEN 92 IF (LCHREQ(CACT(1:1),'R')) THEN 147 IF (LCHREQ(CS(IOU),'R')) THEN 158 IF (.NOT.LCHREQ(CS(IOU),'R')) THEN 172 IF (.NOT.LCHREQ(CS(IOU),'W')) THEN 190 IF (.NOT.LCHREQ(CS(IOU),'R')) THEN [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph1/slpack/ |
H A D | slinit.f | 8 LOGICAL LCHREQ,LCHRD local 16 EXTERNAL LCHREQ,LENC,LCHRD 52 IF (.NOT.(LCHREQ(CS1,'A') .OR. LCHREQ(CS1,'B'))) THEN 61 IF (LCHREQ(CS3,'Y') .OR. LCHREQ(CS3,'L')) THEN 64 ELSE IF (LCHREQ(CS3,'T') .OR. LCHREQ(CS3,'P')) THEN 68 IF (.NOT.(LENC(CSIZE).EQ.2 .OR. LCHREQ(CS3,'A'))) THEN
|
H A D | sltlcv.f | 8 LOGICAL LCHREQ,LPARA local 11 EXTERNAL LCHREQ,LENC 22 IF (LCHREQ(CST,'PAGE')) THEN 27 ELSE IF (LCHREQ(CST,'DATE')) THEN 32 ELSE IF (LCHREQ(CST,'TIME')) THEN 37 ELSE IF (LCHREQ(CST,'PROG')) THEN 40 ELSE IF (LCHREQ(CST,'USER')) THEN
|
H A D | sldiv.f | 8 LOGICAL LCHREQ local 16 EXTERNAL LCHREQ,ISUM0 22 IF (.NOT.(LCHREQ(CF1,'T') .OR. LCHREQ(CF1,'Y') 23 + .OR. LCHREQ(CF1,'L') .OR. LCHREQ(CF1,'S'))) THEN
|
/dports/science/dcl/dcl-5.4.8/src/grph2/uepack/ |
H A D | uerqnp.f | 13 LOGICAL LCHREQ, LFIRST local 18 EXTERNAL LCHREQ,LENC 40 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 105 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
H A D | uelqnp.f | 14 LOGICAL LCHREQ, LFIRST local 19 EXTERNAL LCHREQ,LENC 43 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 108 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
/dports/science/dcl/dcl-5.4.8/src/grph2/ucpack/ |
H A D | ucrqnp.f | 13 LOGICAL LCHREQ, LFIRST local 18 EXTERNAL LCHREQ,LENC 36 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 101 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
H A D | uclqnp.f | 14 LOGICAL LCHREQ, LFIRST local 19 EXTERNAL LCHREQ,LENC 37 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 102 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
H A D | uciqnp.f | 14 LOGICAL LCHREQ, LFIRST local 19 EXTERNAL LCHREQ,LENC 41 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 106 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
/dports/science/dcl/dcl-5.4.8/src/math2/odelib/ |
H A D | odrqnp.f | 13 LOGICAL LCHREQ,LFIRST local 18 EXTERNAL LCHREQ,LENC 35 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 100 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
H A D | odiqnp.f | 13 LOGICAL LCHREQ,LFIRST local 18 EXTERNAL LCHREQ,LENC 37 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 102 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
H A D | odlqnp.f | 14 LOGICAL LCHREQ,LFIRST local 19 EXTERNAL LCHREQ,LENC 36 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 101 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
/dports/science/dcl/dcl-5.4.8/src/grph2/udpack/ |
H A D | udlqnp.f | 15 LOGICAL LCHREQ, LFIRST local 20 EXTERNAL LCHREQ,LENC 47 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 112 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
/dports/science/dcl/dcl-5.4.8/src/grph2/uipack/ |
H A D | uiiqnp.f | 11 LOGICAL LCHREQ, LFIRST local 16 EXTERNAL LCHREQ, LENC 42 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 107 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
/dports/science/dcl/dcl-5.4.8/src/grph2/ulpack/ |
H A D | uliqnp.f | 13 LOGICAL LCHREQ, LFIRST local 18 EXTERNAL LCHREQ, LENC 53 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 118 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|
/dports/science/dcl/dcl-5.4.8/src/grph2/umpack/ |
H A D | umrqnp.f | 13 LOGICAL LCHREQ, LFIRST local 18 EXTERNAL LCHREQ, LENC 46 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN 111 IF (LCHREQ(CP, CPARAS(N)) .OR. LCHREQ(CP, CPARAL(N))) THEN
|