fork(3) download

copy

C     Program to get the CC#5 Coordinates
      Program CC5
C
      IMPLICIT REAL*8 (e-f,k-o)
C
      CALL Get_Coords (North,East)
      WRITE (*,1000) North, East
1000  FORMAT ('Cache coordinates: N50',F7,3,', E014',F7,3)
C
      STOP
      END
C
C     Get_Coords
      SUBROUTINE Get_Coords (polN, polE)
C
      IMPLICIT REAL*8 (e-f,k-z)
      INTEGER I
C
      OffN = 0,780
      OffE = 2,385
      KonN = 0,160
      KonE = 2,210
      ExpN = 1,010
      ExpE = 1,210
C
      polN = OffN
      polE = OffE
C
      DO 100 I = 1,6
C
      polN = KonN * ExpN**I + polN
      polE = KonE * ExpE**I + polE
C
100   CONTINUE
C
      RETURN
      END

prog.f95:1:

C     Program to get the CC#5 Coordinates
1
Error: Unclassifiable statement at (1)
prog.f95:3:

C
1
Error: Unclassifiable statement at (1)
prog.f95:4.21:

      IMPLICIT REAL*8 (e-f,k-o)
                     1
Error: Nonstandard type declaration REAL*8 at (1)
prog.f95:5:

C
1
Error: Unclassifiable statement at (1)
prog.f95:8.42:

1000  FORMAT ('Cache coordinates: N50',F7,3,', E014',F7,3)
                                          1
Error: Period required in format specifier at (1)
prog.f95:8.44:

1000  FORMAT ('Cache coordinates: N50',F7,3,', E014',F7,3)
                                            1
Error: Unexpected element in format string at (1)
prog.f95:9:

C
1
Error: Unclassifiable statement at (1)
prog.f95:7.19:

      WRITE (*,1000) North, East
                   1
Error: FORMAT label 1000 at (1) not defined
prog.f95:12:

C
1
Error: Unclassifiable statement at (1)
prog.f95:13:

C     Get_Coords
1
Error: Unclassifiable statement at (1)
prog.f95:15:

C
1
Error: Unclassifiable statement at (1)
prog.f95:16.21:

      IMPLICIT REAL*8 (e-f,k-z)
                     1
Error: Nonstandard type declaration REAL*8 at (1)
prog.f95:18:

C
1
Error: Unclassifiable statement at (1)
prog.f95:19.6:

      OffN = 0,780
      1
Error: Unclassifiable statement at (1)
prog.f95:20.6:

      OffE = 2,385
      1
Error: Unclassifiable statement at (1)
prog.f95:21.6:

      KonN = 0,160
      1
Error: Unclassifiable statement at (1)
prog.f95:22.6:

      KonE = 2,210
      1
Error: Unclassifiable statement at (1)
prog.f95:23.6:

      ExpN = 1,010
      1
Error: Unclassifiable statement at (1)
prog.f95:24.6:

      ExpE = 1,210
      1
Error: Unclassifiable statement at (1)
prog.f95:25:

C
1
Error: Unclassifiable statement at (1)
prog.f95:28:

C
1
Error: Unclassifiable statement at (1)
prog.f95:30:

C
1
Error: Unclassifiable statement at (1)
prog.f95:33:

C
1
Error: Unclassifiable statement at (1)
prog.f95:35:

C
1
Error: Unclassifiable statement at (1)

Standard output is empty