Fortran 77 et C

  

C**************************************************************
      SUBROUTINE ELEMENT(NAME, P1, X, N, G, INDTXT)  
C
      CHARACTER*6 NAME
      CHARACTER*45 INDTXT
C
     OPEN(UNIT=50,FILE=NAME)
      READ(50,20) NAME
   20 FORMAT(A6)
      READ(50,30) INDTXT
   30 FORMAT(A45)
      READ(50,40) N, G
   40 FORMAT(I6,F14.4)
      DO 60 I =1,N
      READ(50,70) B(I), A(I)
   70 FORMAT(2F14.4)
   60 CONTINUE
     
      CLOSE(UNIT=50)

C      STOP
C
      B(1)=P1
      A(1)=A(1)+X
C
      DO 90 I=2,N
      B(I)=B(I-1)+B(I)
      A(I)=A(I)+X
   90 CONTINUE
C
    DO 100 I=1,N
     WRITE(*,110) I, B(I), A(I)
  110 FORMAT(1X,I2,':  ',2F10.3)
  100 CONTINUE
C
      RETURN
      END
C
C