1 ! PR tree-optimization/46259
4 SUBROUTINE RDSTFR(FRGMNT,IFRAG,PROVEC,FOCKMA,
5 * MXBF,MXMO,MXMO2,NTMOF)
6 PARAMETER (MXPT=100, MXFRG=50, MXFGPT=MXPT*MXFRG)
7 CHARACTER*8 WORD,MNAME,PNAME,RNAME
8 COMMON /FRGSTD/ CORD(3,MXPT),PCORD(3,MXPT),POLT(9,MXPT),
9 * INLPR(4*MXPT),IKFR(MXPT),IKLR(MXPT),
10 * MNAME(MXPT),PNAME(MXPT),RNAME(MXPT)