From b71b3bb7e7c11b1c7bf50adc76eb5d88cdf07b85 Mon Sep 17 00:00:00 2001 From: Rosnec Date: Mon, 6 Jan 2014 04:18:22 -0500 Subject: [PATCH] Removing more row numberings --- pcat_template.f | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/pcat_template.f b/pcat_template.f index 363924d..3e28a3f 100644 --- 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++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++