Removing more row numberings

astroswego · Jan 6, 2014 · b71b3bb · b71b3bb
1 parent 7577054
commit b71b3bb
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/pcat_template.f b/pcat_template.f
@@ -701,7 +701,7 @@ SUBROUTINE POUTPX(N,M,PRJN)
 C        WRITE (6,1010)
 C        WRITE (6,1020)
         DO 100 K = 1, N
-           WRITE (6,1030) K,(PRJN(K,J),J=1,NUM)
+           WRITE (6,1030) (PRJN(K,J),J=1,NUM)
   100   CONTINUE
 C
  1000   FORMAT('PRINCIPLE SCORE ROW SECTION.')
@@ -711,7 +711,7 @@ SUBROUTINE POUTPX(N,M,PRJN)
 C 1020   FORMAT
 C     X  (' ------  ------  ------  ------  ------  ------  ------
 C     X  ------')
- 1030   FORMAT(I5,2X,7F8.4)
+ 1030   FORMAT(2X,7F8.4)
         RETURN
         END
 C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -727,7 +727,7 @@ SUBROUTINE POUTPY(M,PRJNS)
 C        WRITE (6,1010)
 C        WRITE (6,1020)
         DO 100 K = 1, M
-           WRITE (6,1030) K,(PRJNS(K,J),J=1,NUM)
+           WRITE (6,1030) (PRJNS(K,J),J=1,NUM)
   100   CONTINUE
 C
  1000   FORMAT('PRINCIPLE SCORE COLUMN SECTION.')
@@ -737,7 +737,7 @@ SUBROUTINE POUTPY(M,PRJNS)
 C 1020   FORMAT 
 C     X  (' ------  ------  ------  ------  ------  ------  ------
 C     X  ------')
- 1030   FORMAT(I5,2X,7F8.4)
+ 1030   FORMAT(2X,7F8.4)
         RETURN
         END
 C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++