Hvordan importere man en fil i Fortran V90 og ligger den i en tabel

Hejsa alle

Jeg sidde i øjeblikket med et lille problem.

Jeg har en tekstfil men nogle tal i som jeg gerne vil have lagt i en tabel i fortran V90

Tekstfilen ser ud på følgende måde:


PRINT U    NODAL SOLUTION PER NODE

POST1 NODAL DEGREE OF FREEDOM LISTING               

  LOAD STEP=1  SUBSTEP=1
                                           
  TIME=1.0000 LOAD CASE=1                           

  THE FOLLOWING DEGREE OF FREEDOM RESULTS ARE IN GLOBAL COORDINATES           

    NODE      UX          UY          UZ           
    1000  0.41120E-05 0.11285E-04  0.0000   
    1001  0.41405E-05 0.10903E-04  0.0000   
    1002  0.41636E-05 0.10510E-04  0.0000   
    1003  0.41829E-05 0.10113E-04  0.0000   
    1004  0.41995E-05 0.97142E-05  0.0000   
    1005  0.42141E-05 0.93129E-05  0.0000   
    1006  0.42268E-05 0.89102E-05  0.0000   
    1007  0.42381E-05 0.85061E-05  0.0000   
    1008  0.42480E-05 0.81011E-05  0.0000   
    1009  0.42569E-05 0.76952E-05  0.0000   
    1010  0.42648E-05 0.72887E-05  0.0000   
    1011  0.42720E-05 0.68817E-05  0.0000   
    1012  0.42784E-05 0.64743E-05  0.0000   
    1013  0.42843E-05 0.60667E-05  0.0000   
    1014  0.42896E-05 0.56588E-05  0.0000   
    1015  0.42946E-05 0.52507E-05  0.0000   
    1016  0.42993E-05 0.48425E-05  0.0000   
    1017  0.43038E-05 0.44342E-05  0.0000   
    1018  0.43080E-05 0.40259E-05  0.0000   
    1019  0.43121E-05 0.36175E-05  0.0000   
    1020  0.43160E-05 0.32091E-05  0.0000   
    1021  0.43199E-05 0.28006E-05  0.0000   
    1022  0.43237E-05 0.23921E-05  0.0000   
    1023  0.43274E-05 0.19837E-05  0.0000   
    1024  0.43311E-05 0.15752E-05  0.0000   
    1025  0.43347E-05 0.11667E-05  0.0000   
    1026  0.43383E-05 0.75822E-06  0.0000   
    1027  0.43419E-05 0.34974E-06  0.0000   
    1028  0.43455E-05-0.58740E-07  0.0000   
    1029  0.43490E-05-0.46722E-06  0.0000   
    1030  0.43525E-05-0.87569E-06  0.0000   
    1031  0.43560E-05-0.12842E-05  0.0000   
    1032  0.43595E-05-0.16926E-05  0.0000   
    1033  0.43630E-05-0.21010E-05  0.0000   
    1034  0.43664E-05-0.25095E-05  0.0000   
    1035  0.43698E-05-0.29179E-05  0.0000   
    1036  0.43732E-05-0.33262E-05  0.0000   

  ***** POST1 NODAL DEGREE OF FREEDOM LISTING *****                           

  LOAD STEP=    1  SUBSTEP=    1                                           
  TIME=    1.0000      LOAD CASE=  0                                       

  THE FOLLOWING DEGREE OF FREEDOM RESULTS ARE IN GLOBAL COORDINATES           

    NODE      UX          UY          UZ          USUM 
    1037  0.43765E-05-0.37346E-05  0.0000   
    1038  0.43798E-05-0.41429E-05  0.0000   
    1039  0.43831E-05-0.45511E-05  0.0000   
    1040  0.43863E-05-0.49593E-05  0.0000   
    1041  0.43895E-05-0.53673E-05  0.0000   
    1042  0.43927E-05-0.57753E-05  0.0000   
    1043  0.43959E-05-0.61832E-05  0.0000 


Osv

Problemet er at få programmet til at sortere den overflødige tekst fra og kun ligge \"node\" nummeret og Ux og UY i en tabel, hvor den første søjle angiver node nummeret og den anden søjle angiver ux og tredie søjle angiver uy osv.

Den overflødige tekst optræder hver gang der er listet 37 nodes i tekstfilen.


Håber der er nogle der kan hjælpe. På forhånd tak