| /dports/biology/mopac/mopac7-1.15/fortran/ |
| H A D | search.f | 20 COMMON /SIGMA1/ GNEXT, AMIN, ANEXT
21 COMMON /SIGMA2/ GNEXT1(MAXPAR), GMIN1(MAXPAR)
22 COMMON/KEYWRD/ KEYWRD
23 COMMON /NUMCAL/ NUMCAL
26 CHARACTER*241 KEYWRD
50 WRITE(6,'('' SEARCH DIRECTION VECTOR'')') argument
68 20 SUM=GA/(GA-GB)
75 30 CONTINUE
83 50 GRAD(I)=0.D0
138 WRITE(6,'('' AT EXIT FROM SEARCH'')') argument
[all …]
|
| /dports/misc/libemos/libemos-4.5.9-Source/gribex/ |
| H A D | search.F | 11 SUBROUTINE SEARCH (KEYS,MAXKEY,STRING,LEN,POS,IS,IF, subroutine
114 100 K = 0
123 200 CONTINUE
143 9000 FORMAT (' Unrecognised entry - ',A)
152 250 WRITE(OP,*)'Type page to continue -->'
159 300 CONTINUE
191 350 CONTINUE
200 9001 FORMAT (' Ambiguous entry - ',A)
203 9002 FORMAT (' ',A)
204 400 CONTINUE
|
| /dports/math/cmlib/cmlib-3.0_8/src/cluster/ |
| H A D | search.f | 1 SUBROUTINE SEARCH(M, DMD, D, K, ITER, ALPHA, DMWORK, DMWRK1, subroutine
111 1 FORMAT('1')
120 10 IWORK(I)=K
124 20 IF(I.NE.J) WORK2(I,J)=K
130 2 FORMAT('0')
149 30 CONTINUE
159 3 FORMAT(I5,' HAS ANCESTOR',I5,'FALSE=',F5.0,' TRUE=',F5.0)
160 40 CONTINUE
162 50 CALL MTREE(M,K,IWORK(1),IWORK(K+1),OUNIT)
|
| /dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/devel/mingw32-gcc/gcc-4.8.1/gcc/testsuite/gfortran.dg/ |
| H A D | char_length_16.f90 | 7 SUBROUTINE SEARCH(ITEMVAL) subroutine
8 CHARACTER (*) :: ITEMVAL
9 CHARACTER (LEN(ITEMVAL)) :: ITEM
|
| /dports/misc/libemos/libemos-4.5.9-Source/tools/bufrtools_wmo/ |
| H A D | bufr_merg.F90 | 705 integer, dimension (*) :: karray
706 integer k local
707 integer kval
708 integer kindex
709 integer ihigh
710 integer ilow
711 integer i
712 integer numbis
713 integer count
714 logical found
[all …]
|