kkxlnc
New User
Joined: 12 Jun 2005 Posts: 44 Location: Boston
|
|
|
|
hi Friends,
I am Keerti Kumar More. My question is: I found this piece of code being used in an application but we are unable to identify the language in which this code has been written. Can anybody can make out which programming language it is and what function does this piece of code perform?
PROGRAM E1365BD J1300010
CHARACTER A*14 J1300020
OPEN (UNIT=1, J1300030
* ACCESS='SEQUENTIAL', J1300040
* ACTION='READ', J1300050
* STATUS='OLD', J1300060
* FORM='FORMATTED') J1300070
OPEN (UNIT=2, J1300080
* ACCESS='SEQUENTIAL', J1300090
* ACTION='WRITE', J1300100
* STATUS='NEW', J1300110
* FORM='FORMATTED') J1300120
10 READ(1,11,END=999)A J1300130
11 FORMAT(A14) J1300140
WRITE(2,12)A(1:13) J1300150
12 FORMAT(A13) J1300160
GO TO 10 J1300170
999 STOP J1300180
END J1300190
Thank you.
Sincerely,
Keerti Kumar More. |
|
grepusr3
New User
Joined: 10 May 2005 Posts: 29
|
|
|
|
Keerti Kumar,
Yes, the language is Fortran.
It reads input file sequentially, and for each record - it reads the first 14 bytes (as characters). It writes them, the leftmost thirteen bytes to an outputfile.
Hope it helps!
-Pelad |
|