Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0137/manova/manova.for
There is 1 other file named manova.for in the archive. Click here to see a list.
00100	C	THIS PROGRAM IS A WESTERN MICHIGAN UNIVERSITY IMPLEMENTATION
00200	C	 OF A WAYNE STATE UNIVERSITY VERSION OF A PROGRAM WHICH WAS
00300	C	 ORIGINALLY PROGRAMMED AT THE UNIVERSITY OF MIAMI IN FLORIDA.
00400	C	 THE MODIFICATION AT WMU WAS MADE BY SAM ANEMA.
00500	C
00600	C	FILES: MANOVA.F4,MANOV1.F4,MANOV2.F4,MANOV3.F4,MANOV4.F4
00700	C
00800	C	ADDITIONAL SUBROUTINES: USAGE - RUSS BARR(IN NGLIB).MAC
00900	C
01000	C	LOADING PROCEDURE:
01100	C
01200	C	R LOADER
01300	C	MANOVMANOVA,USAGE/<MANOV1/>MANOV2/>MANOV3/>MANOV4/>/G
01400	C	SAV MANOVA
01500	C	SAV MANOVA
01600	C
01700	C     EXECUTIVE ROUTINE
01800	      COMMON ORTHES(100,20),DUMMY(26,27),SSHYP(25,26),SSEAD(40,41),
01900	     1ESTIM(50,50),        NUMERR(8),NERRS(100),NDFCUM(100),NDFTST(
02000	     2100),VARNAM(2,50),HEAD(3,100),LEVEL(8),LEVSUB(8,10),LEVCUM(8,10),
02100	     3NCELL(100), NTABLE(27),ITABLE(9,9),OBS(100)
02200	     4      ,NVAR,NCOVAR,NERWIT,NERRES,HNUM(100),ERROR,NTESTS,RVARC,
02300	     5           FIRST,IORD(50),IPOSV(50),IVPOS(50),NCELLS,NVART,NDFTOT,
02400	     6SPECOR,VLIST,PRINTR,NFACT , READK,  PRINTK,CONTR ,TESTR, MFIRST,
02500	     7TRUTH,BLANK,MAXFAC,MAXCEL,MAXPAR,MAXLEV,MAXVAR,ATITLE,AJOBCD,
02600	     8AANALY,AFINIS,WITHIN,SPACE(10)
02700	      DATA INP,IOUT,IAUX1,IAUX2/5,30,22,23/
02800	      DATA IAUX4/24/
02900	      LOGICAL FIRST,ERROR
03000	      DOUBLE PRECISION  VARNAM
03100	      MAXFAC = 4
03200	      MAXCEL = 40
03300	C      FORMAT(G)
03400	      MAXPAR = 25
03500	      MAXLEV =14
03600	      MAXVAR = 12
03700	      ERROR = .FALSE.
03800	      FIRST = .TRUE.
03900	C	CALL USAGE('MANOVA')
04000	      GO TO 120
04100	  110 FIRST = .FALSE.
04200	  120 REWIND IAUX1
04300	       REWIND IAUX2
04500	      CALL RDCONT
04700	      CALL LNKK
04800	      IF (ERROR) GO TO 110
05000	      CALL EST
05100	      IF (ERROR) GO TO 110
05300	      CALL ANALYS
05400	      GO TO 110
05500	      WRITE(1)MAXFAC
05600	      REWIND 1
05700	      READ(1)J
05800	      END