Home
last modified time | relevance | path

Searched refs:LCHREQ (Results 1 – 25 of 93) sorted by relevance

1234

/dports/science/cdcl/dcl-5.4.8-C/src/math1/syslib/
H A DNOTE80 * 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 DNOTE80 * 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 Dlchreq.f6 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 Drpnxfl.f13 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 Drpnopt.f11 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 Ddclpara.f6 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 Dswqfnm.f10 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 Dswrqnp.f13 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 Dfcpack.f17 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 Dfcpack.f15 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 Dslinit.f8 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 Dsltlcv.f8 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 Dsldiv.f8 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 Duerqnp.f13 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 Duelqnp.f14 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 Ducrqnp.f13 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 Duclqnp.f14 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 Duciqnp.f14 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 Dodrqnp.f13 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 Dodiqnp.f13 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 Dodlqnp.f14 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 Dudlqnp.f15 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 Duiiqnp.f11 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 Duliqnp.f13 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 Dumrqnp.f13 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

1234