Searched refs:BPRIM (Results 1 – 1 of 1) sorted by relevance
9 DOUBLE PRECISION BPRIM local10 COMMON /TESTCOM/ BPRIM(100) local14 BPRIM( I ) = DBLE( I )19 DOUBLE PRECISION BPRIM local20 COMMON /TESTCOM/ BPRIM(100) local32 DOUBLE PRECISION BPRIM local33 COMMON /TESTCOM/ BPRIM(100) local37 IF (K.NE.BPRIM(K)) CALL ABORT