3931       SUBROUTINE VARCOV(AMAT1,AMAT2,MAXROM,MAXCOM,NR1,NC1,DMEAN,  argument
3986       DIMENSION AMAT1(MAXROM,MAXCOM)
3987       DIMENSION AMAT2(MAXROM,MAXCOM)
4334       SUBROUTINE VARPOO(AMAT1,AMAT2,AMAT3,MAXROM,MAXCOM,NR1,NC1,NR2,  argument
4380       DIMENSION AMAT1(MAXROM,MAXCOM)
4381       DIMENSION AMAT2(MAXROM,MAXCOM)
4382       DIMENSION AMAT3(MAXROM,MAXCOM)
4499       SUBROUTINE VARPO2(AMAT1,AMAT2,AMAT3,MAXROM,MAXCOM,NR1,NC1,NR3,  argument
4548       DIMENSION AMAT1(MAXROM,MAXCOM)
4549       DIMENSION AMAT2(MAXROM,MAXCOM)
4550       DIMENSION AMAT3(NR3,MAXCOM)
18381      1MAXROM,MAXCOM,NR1,NC1,
18425       DIMENSION AMAT1(MAXROM,MAXCOM)
18426       DIMENSION AMAT2(MAXROM,MAXCOM)
18457       WRITE(ICOUT,53)MAXROM,MAXCOM,NR1,NC1
18469       DO110J=1,MAXCOM