Elementary Principles 471 - 10.14 (cont'd) SUBROUTINE IPRNT...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
10- 23 10.14 (cont’d) C SUBROUTINE IPRNT (K, XA, XC, N) DIMENSION XA(3), XC(3) IF (K.EQ.1) WRITE (6, 400) IF (K.NE.1) WRITE (6, *) DO 100 I = 1, N 100 WRITE (6, 901) K, I, XA(I), XC(I) RETURN 900 FORMAT (' K Var Assumed Calculated') 901 FORMAT (I4, I4, 2E15.6) END Program Output: K Var Assumed Calculated 1 1 0.200000E + 01 0.150000E + 01
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.
Ask a homework question - tutors are online