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