De fornta para C

Thu, 23 Dec 2004 08:26:44 -0600 

Olá pessoal,
    Já li alguns livros e não encontrei uma maneira de transformar esta
estrutura para C. Alguém pode me ajudar.
C    ** *************************************************
C    ** ABERTURA DE ARQUIVOS
C    ** ************************************************
        CHARACTER*30 CFILE1,FILE1,FILE2,FILE3,CFILE0
        CHARACTER*30 CFILE2,CFILE3
        NREDE=100
        DO 2 IREDE=1,NREDE
        READ(*,*)M0
        READ(*,*)T
        READ (*,'(A)') CFILE0
        READ (*,'(A)') CFILE1
        READ (*,'(A)') CFILE2
        READ (*,'(A)') CFILE3
        READ (*,'(A)') FILE1
        READ (*,'(A)') FILE2
        READ (*,'(A)') FILE3
        MCS=80
        RL=DFLOAT(L2)
        NB=4
        RNB=DFLOAT(NB)
        NC=10
        RNC=DFLOAT(NC)
        ALFA=0.0D0
        RMCS=FLOAT(MCS)
        ISTOP=NINT(M0*L2)
c**  ***************************
C**   abre a rede de Delaunay
c**  ***************************
        OPEN(UNIT=50,FILE=FILE1)
        OPEN(UNIT=51,FILE=FILE2)
        OPEN(UNIT=52,FILE=FILE3)
        OPEN(UNIT=60,FILE=CFILE0)
        OPEN(UNIT=61,FILE=CFILE1)
        OPEN(UNIT=62,FILE=CFILE2)
        OPEN(UNIT=63,FILE=CFILE3)
obrigado
e Feliz Natal

Responder a