PROGRAM idl2ftn  
  
    INTEGER i, j  
    REAL data(5, 3)  
  
    OPEN(1, FILE="idl2ftn.dat", FORM="unformatted")  
    READ(1) data  
      DO 100 j = 1, 3  
        DO 100 i = 1, 5  
          PRINT *, data(i,j)  
100 CONTINUE  
    END 


PROGRAM ftn2idl  
  
    INTEGER i, j  
    REAL data(5, 3)  
  
    OPEN(1, FILE="ftn2idl.dat", FORM="unformatted")  
      DO 100 j = 1, 3  
        DO 100 i = 1, 5  
          data(i,j) = ((j - 1) * 5) + (i - 1)  
          print *, data(i,j)  
100 CONTINUE  
    WRITE(1) data  
    END 

PROGRAM console  
  
    INTEGER i, j  
    REAL data(5, 3)  
  
    READ(*) data  
      DO 100 j = 1, 3  
        DO 100 i = 1, 5  
          PRINT *, data(i,j)  
100 CONTINUE  
    END