Created
May 10, 2012 17:28
-
-
Save rwest/2654587 to your computer and use it in GitHub Desktop.
Errors making fame with GNU Fortran (GCC) 4.1.2
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| [rwest@opportunity fame]$ make | |
| mkdir -p ../../build/fame | |
| gfortran -ftrapv -fbounds-check -frange-check -ggdb -J""../../build/fame"" -O3 -Wall -Wno-unused -c math.f90 -o ../../build/fame/math.o | |
| mkdir -p ../../build/fame | |
| gfortran -ftrapv -fbounds-check -frange-check -ggdb -J""../../build/fame"" -O3 -Wall -Wno-unused -c states.f90 -o ../../build/fame/states.o | |
| mkdir -p ../../build/fame | |
| gfortran -ftrapv -fbounds-check -frange-check -ggdb -J""../../build/fame"" -O3 -Wall -Wno-unused -c _modes.f90 -o ../../build/fame/_modes.o | |
| In file _modes.f90:58 | |
| qt = ((2 * 3.141592654 * mass) / (6.626e-34 * 6.626e-34))**(dim/2.0) * V | |
| 1 | |
| Warning: Arithmetic underflow at (1) | |
| In file _modes.f90:90 | |
| qt = ((2 * 3.141592654 * mass) / (6.626e-34 * 6.626e-34))**(dim/2.0) * V | |
| 1 | |
| Warning: Arithmetic underflow at (1) | |
| mkdir -p ../../build/fame | |
| gfortran -ftrapv -fbounds-check -frange-check -ggdb -J""../../build/fame"" -O3 -Wall -Wno-unused -c network.f90 -o ../../build/fame/network.o | |
| In file network.f90:28 | |
| real(8), dimension(:), allocatable :: vibFreq ! 1D harmonic osci | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:29 | |
| real(8), dimension(:), allocatable :: rotFreq ! 1D rigid rotor f | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:30 | |
| real(8), dimension(:), allocatable :: hindFreq ! 1D hindered roto | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:31 | |
| real(8), dimension(:), allocatable :: hindBarrier ! 1D hindered roto | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:38 | |
| real(8), dimension(:), allocatable :: Cp ! Heat capacity table in J/ | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:51 | |
| integer, dimension(:), allocatable :: species ! List of indices t | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:52 | |
| real(8), dimension(:), allocatable :: densStates ! Density of states | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:55 | |
| real(8), dimension(:), allocatable :: eqDist ! Equilibrium distr | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:57 | |
| real(8), dimension(:,:), allocatable :: Mcoll ! Collisional trans | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:72 | |
| real(8), dimension(:), allocatable :: kf ! Microcanonical forward re | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:73 | |
| real(8), dimension(:), allocatable :: kb ! Microcanonical backward r | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:77 | |
| type(Species), dimension(:), allocatable :: species | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:78 | |
| type(Isomer), dimension(:), allocatable :: isomers | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:79 | |
| type(Reaction), dimension(:), allocatable :: reactions | |
| 1 | |
| Error: Attribute at (1) is not allowed in a TYPE definition | |
| In file network.f90:99 | |
| Cp = thermo%Cp(1) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:101 | |
| slope = (thermo%Cp(2) - thermo%Cp(1)) / (400.0 - 300.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:102 | |
| intercept = (thermo%Cp(1) * 400.0 - thermo%Cp(2) * 300.0) / (400.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:105 | |
| slope = (thermo%Cp(3) - thermo%Cp(2)) / (500.0 - 400.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:106 | |
| intercept = (thermo%Cp(2) * 500.0 - thermo%Cp(3) * 400.0) / (500.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:109 | |
| slope = (thermo%Cp(4) - thermo%Cp(3)) / (600.0 - 500.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:110 | |
| intercept = (thermo%Cp(3) * 600.0 - thermo%Cp(4) * 500.0) / (600.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:113 | |
| slope = (thermo%Cp(5) - thermo%Cp(4)) / (800.0 - 600.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:114 | |
| intercept = (thermo%Cp(4) * 800.0 - thermo%Cp(5) * 600.0) / (800.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:117 | |
| slope = (thermo%Cp(6) - thermo%Cp(5)) / (1000.0 - 800.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:118 | |
| intercept = (thermo%Cp(5) * 1000.0 - thermo%Cp(6) * 800.0) / (1000. | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:121 | |
| slope = (thermo%Cp(7) - thermo%Cp(6)) / (1500.0 - 1000.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:122 | |
| intercept = (thermo%Cp(6) * 1500.0 - thermo%Cp(7) * 1000.0) / (1500 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:125 | |
| Cp = thermo%Cp(7) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:146 | |
| H = H + thermo%Cp(1) * (T - 298.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:148 | |
| H = H + thermo%Cp(1) * (300.0 - 298.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:151 | |
| slope = (thermo%Cp(2) - thermo%Cp(1)) / (400.0 - 300.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:152 | |
| intercept = (thermo%Cp(1) * 400.0 - thermo%Cp(2) * 300.0) / (400.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:160 | |
| slope = (thermo%Cp(3) - thermo%Cp(2)) / (500.0 - 400.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:161 | |
| intercept = (thermo%Cp(2) * 500.0 - thermo%Cp(3) * 400.0) / (500.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:169 | |
| slope = (thermo%Cp(4) - thermo%Cp(3)) / (600.0 - 500.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:170 | |
| intercept = (thermo%Cp(3) * 600.0 - thermo%Cp(4) * 500.0) / (600.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:178 | |
| slope = (thermo%Cp(5) - thermo%Cp(4)) / (800.0 - 600.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:179 | |
| intercept = (thermo%Cp(4) * 800.0 - thermo%Cp(5) * 600.0) / (800.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:187 | |
| slope = (thermo%Cp(6) - thermo%Cp(5)) / (1000.0 - 800.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:188 | |
| intercept = (thermo%Cp(5) * 1000.0 - thermo%Cp(6) * 800.0) / (1000. | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:196 | |
| slope = (thermo%Cp(7) - thermo%Cp(6)) / (1500.0 - 1000.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:197 | |
| intercept = (thermo%Cp(6) * 1500.0 - thermo%Cp(7) * 1000.0) / (1500 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:205 | |
| slope = (thermo%Cp(7) - thermo%Cp(6)) / (1500.0 - 1000.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:206 | |
| intercept = (thermo%Cp(6) * 1500.0 - thermo%Cp(7) * 1000.0) / (1500 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:228 | |
| S = S + thermo%Cp(1) * log(T / 298.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:230 | |
| S = S + thermo%Cp(1) * log(300.0 / 298.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:234 | |
| slope = (thermo%Cp(2) - thermo%Cp(1)) / (400.0 - 300.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:235 | |
| intercept = (thermo%Cp(1) * 400.0 - thermo%Cp(2) * 300.0) / (400.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:243 | |
| slope = (thermo%Cp(3) - thermo%Cp(2)) / (500.0 - 400.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:244 | |
| intercept = (thermo%Cp(2) * 500.0 - thermo%Cp(3) * 400.0) / (500.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:252 | |
| slope = (thermo%Cp(4) - thermo%Cp(3)) / (600.0 - 500.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:253 | |
| intercept = (thermo%Cp(3) * 600.0 - thermo%Cp(4) * 500.0) / (600.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:261 | |
| slope = (thermo%Cp(5) - thermo%Cp(4)) / (800.0 - 600.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:262 | |
| intercept = (thermo%Cp(4) * 800.0 - thermo%Cp(5) * 600.0) / (800.0 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:270 | |
| slope = (thermo%Cp(6) - thermo%Cp(5)) / (1000.0 - 800.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:271 | |
| intercept = (thermo%Cp(5) * 1000.0 - thermo%Cp(6) * 800.0) / (1000. | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:279 | |
| slope = (thermo%Cp(7) - thermo%Cp(6)) / (1500.0 - 1000.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:280 | |
| intercept = (thermo%Cp(6) * 1500.0 - thermo%Cp(7) * 1000.0) / (1500 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:288 | |
| slope = (thermo%Cp(7) - thermo%Cp(6)) / (1500.0 - 1000.0) | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:289 | |
| intercept = (thermo%Cp(6) * 1500.0 - thermo%Cp(7) * 1000.0) / (1500 | |
| 1 | |
| Error: 'cp' at (1) is not a member of the 'thermodata' structure | |
| In file network.f90:312 | |
| real(8), dimension(1:size(spec%spectral%vibFreq)) :: vib | |
| 1 | |
| Error: 'vibfreq' at (1) is not a member of the 'spectraldata' structure | |
| In file network.f90:313 | |
| real(8), dimension(1:size(spec%spectral%rotFreq)) :: rot | |
| 1 | |
| Error: 'rotfreq' at (1) is not a member of the 'spectraldata' structure | |
| In file network.f90:314 | |
| real(8), dimension(1:size(spec%spectral%hindFreq), 1:2) :: hind | |
| 1 | |
| Error: 'hindfreq' at (1) is not a member of the 'spectraldata' structure | |
| In file network.f90:320 | |
| Nvib = size(spec%spectral%vibFreq) | |
| 1 | |
| Error: 'vibfreq' at (1) is not a member of the 'spectraldata' structure | |
| In file network.f90:321 | |
| Nrot = size(spec%spectral%rotFreq) | |
| 1 | |
| Error: 'rotfreq' at (1) is not a member of the 'spectraldata' structure | |
| In file network.f90:322 | |
| Nhind = size(spec%spectral%hindFreq) | |
| 1 | |
| Error: 'hindfreq' at (1) is not a member of the 'spectraldata' structure | |
| In file network.f90:326 | |
| vib(i) = spec%spectral%vibFreq(i) | |
| 1 | |
| Error: 'vibfreq' at (1) is not a member of the 'spectraldata' structure | |
| In file network.f90:329 | |
| rot(i) = spec%spectral%rotFreq(i) | |
| 1 | |
| Error: 'rotfreq' at (1) is not a member of the 'spectraldata' structure | |
| In file network.f90:332 | |
| hind(i,1) = spec%spectral%hindFreq(i) | |
| 1 | |
| Error: Unclassifiable statement at (1) | |
| In file network.f90:333 | |
| hind(i,2) = spec%spectral%hindBarrier(i) | |
| 1 | |
| Error: Unclassifiable statement at (1) | |
| In file network.f90:484 | |
| if (allocated(isom%eqDist)) deallocate(isom%eqDist) | |
| 1 | |
| Error: 'eqdist' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:485 | |
| allocate( isom%eqDist(1:size(E)) ) | |
| 1 | |
| Error: 'eqdist' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:489 | |
| isom%eqDist(s) = isom%densStates(s) * exp(-E(s) / (R * T)) | |
| 1 | |
| Error: 'eqdist' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:493 | |
| isom%Q = sum(isom%eqDist) * dE | |
| 1 | |
| Error: 'eqdist' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:503 | |
| isom%eqDist = isom%eqDist / sum(isom%eqDist) | |
| 1 | |
| Error: 'eqdist' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:537 | |
| if (allocated(isom%densStates)) deallocate(isom%densStates) | |
| 1 | |
| Error: 'densstates' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:538 | |
| allocate(isom%densStates(1:nGrains)) | |
| 1 | |
| Error: 'densstates' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:540 | |
| isom%densStates(r) = 0.0 | |
| 1 | |
| Error: 'densstates' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:547 | |
| do i = 1, size(isom%species) | |
| 1 | |
| Error: 'species' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:548 | |
| call species_getDensityOfStates(net%species(isom%species(i)), Elist | |
| 1 | |
| Error: 'species' at (1) is not a member of the 'network' structure | |
| In file network.f90:550 | |
| end do | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:557 | |
| isom%densStates(index:nGrains) = densStates(1:nGrains-index+1) | |
| 1 | |
| Error: 'densstates' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:585 | |
| if (.not. allocated(rxn%kf)) then | |
| 1 | |
| Error: 'kf' at (1) is not a member of the 'reaction' structure | |
| In file network.f90:586 | |
| allocate( rxn%kf(1:nGrains), rxn%kb(1:nGrains) ) | |
| 1 | |
| Error: 'kf' at (1) is not a member of the 'reaction' structure | |
| In file network.f90:587 | |
| end if | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:588 | |
| rxn%kf = 0 * rxn%kf | |
| 1 | |
| Error: 'kf' at (1) is not a member of the 'reaction' structure | |
| In file network.f90:589 | |
| rxn%kb = 0 * rxn%kb | |
| 1 | |
| Error: 'kb' at (1) is not a member of the 'reaction' structure | |
| In file network.f90:597 | |
| call reaction_kineticsILT(rxn%E0 - reac%E0, reac%densStates, & | |
| 1 | |
| Error: 'densstates' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:605 | |
| if (prod%densStates(r) /= 0) then | |
| 1 | |
| Error: 'densstates' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:606 | |
| rxn%kb(r) = rxn%kf(r) / Keq * & | |
| 1 | |
| Error: 'kb' at (1) is not a member of the 'reaction' structure | |
| In file network.f90:608 | |
| end if | |
| 1 | |
| Error: Expecting END DO statement at (1) | |
| In file network.f90:614 | |
| call reaction_kineticsILT(rxn%E0 - reac%E0, reac%densStates, & | |
| 1 | |
| Error: 'densstates' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:623 | |
| rxn%kb(r) = rxn%kf(r) / Keq * & | |
| 1 | |
| Error: 'kb' at (1) is not a member of the 'reaction' structure | |
| In file network.f90:640 | |
| call reaction_kineticsILT(rxn%E0 - reac%E0, reac%densStates, & | |
| 1 | |
| Error: 'densstates' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:649 | |
| rxn%kf(r) = rxn%kb(r) / Keq * & | |
| 1 | |
| Error: 'kf' at (1) is not a member of the 'reaction' structure | |
| In file network.f90:710 | |
| do i = 1, size(reac%species) | |
| 1 | |
| Error: 'species' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:711 | |
| dGrxn = dGrxn - species_getFreeEnergy(speciesList(reac%species(i))% | |
| 1 | |
| Error: 'species' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:712 | |
| end do | |
| 1 | |
| Error: Expecting END FUNCTION statement at (1) | |
| In file network.f90:713 | |
| do i = 1, size(prod%species) | |
| 1 | |
| Error: 'species' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:714 | |
| dGrxn = dGrxn + species_getFreeEnergy(speciesList(prod%species(i))% | |
| 1 | |
| Error: 'species' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:715 | |
| end do | |
| 1 | |
| Error: Expecting END FUNCTION statement at (1) | |
| In file network.f90:720 | |
| Keq = Keq * (100000.0 / 8.314472 / T)**(size(prod%species) - size(reac% | |
| 1 | |
| Error: 'species' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:776 | |
| do i = 1, size(net%isomers) | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:777 | |
| net%isomers(i)%E0 = 0.0 | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:778 | |
| do j = 1, size(net%isomers(i)%species) | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:779 | |
| net%isomers(i)%E0 = net%isomers(i)%E0 + net%species(net%isomers | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:780 | |
| end do | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:781 | |
| if (net%isomers(i)%E0 < Emin) Emin = net%isomers(i)%E0 | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:782 | |
| end do | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:783 | |
| do i = 1, size(net%isomers) | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:784 | |
| net%isomers(i)%E0 = net%isomers(i)%E0 - Emin | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:785 | |
| end do | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:786 | |
| do i = 1, size(net%reactions) | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:787 | |
| net%reactions(i)%E0 = net%reactions(i)%E0 - Emin | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:788 | |
| end do | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:796 | |
| real(8), dimension(:), allocatable, intent(inout) :: Elist | |
| 1 | |
| Error: ALLOCATABLE attribute conflicts with DUMMY attribute at (1) | |
| In file network.f90:821 | |
| allocate(Elist(1:nGrains)) | |
| 1 | |
| Error: Syntax error in ALLOCATE statement at (1) | |
| In file network.f90:823 | |
| Elist(r) = Emin + (r - 1) * dE | |
| 1 | |
| Error: Unclassifiable statement at (1) | |
| In file network.f90:835 | |
| real(8), dimension(:), allocatable, intent(inout) :: Elist | |
| 1 | |
| Error: ALLOCATABLE attribute conflicts with DUMMY attribute at (1) | |
| In file network.f90:851 | |
| isom = net%isomers(1) | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:852 | |
| do i = 2, size(net%isomers) | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:853 | |
| if (isom%E0 > net%isomers(i)%E0) isom = net%isomers(i) | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:854 | |
| end do | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:858 | |
| isom = net%isomers(1) | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:860 | |
| if (isom%E0 < net%isomers(i)%E0) isom = net%isomers(i) | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:881 | |
| if (isom%eqDist(r) > maxValue) then | |
| 1 | |
| Error: 'eqdist' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:882 | |
| maxValue = isom%eqDist(r) | |
| 1 | |
| Error: 'eqdist' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:884 | |
| end if | |
| 1 | |
| Error: Expecting END DO statement at (1) | |
| In file network.f90:888 | |
| if (isom%eqDist(nE) / maxValue < tol) then | |
| 1 | |
| Error: 'eqdist' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:891 | |
| if (isom%eqDist(r) / maxValue > tol) then | |
| 1 | |
| Error: 'eqdist' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:893 | |
| else | |
| 1 | |
| Error: Unexpected ELSE statement at (1) | |
| In file network.f90:895 | |
| end if | |
| 1 | |
| Error: Expecting END DO statement at (1) | |
| In file network.f90:902 | |
| do i = 1, size(net%isomers) | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:903 | |
| if (net%isomers(i)%E0 > maxIsomerE0) maxIsomerE0 = net%isom | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:905 | |
| do i = 1, size(net%reactions) | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:906 | |
| if (net%reactions(i)%E0 > maxReactionE0) maxReactionE0 = ne | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:907 | |
| end do | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:913 | |
| else | |
| 1 | |
| Error: Unexpected ELSE statement at (1) | |
| In file network.f90:915 | |
| end if | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:920 | |
| deallocate(isom%densStates, isom%eqDist, Elist) | |
| 1 | |
| Error: 'densstates' at (1) is not a member of the 'isomer' structure | |
| In file network.f90:922 | |
| end do | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:951 | |
| call isomer_getEqDist(net%isomers(i), Elist, nGrains, T) | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:955 | |
| do w = 1, size(net%reactions) | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:956 | |
| call reaction_calculateMicrocanonicalRates(net%reactions(w), T, | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:966 | |
| net%isomers(i)%collFreq = isomer_getCollisionFrequency(T, P | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:975 | |
| end do | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:1011 | |
| densStates(i,:) = net%isomers(i)%densStates * dE / net%isomers(i)%Q | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:1016 | |
| Eres(i) = isomer_getActiveSpaceEnergy(i, net%reactions) | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:1048 | |
| do r = 1, size(net%reactions) | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:1049 | |
| i = net%reactions(r)%reac | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:1050 | |
| j = net%reactions(r)%prod | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:1052 | |
| Kij(j,i,:) = net%reactions(r)%kf | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:1053 | |
| Kij(i,j,:) = net%reactions(r)%kb | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:1055 | |
| Gnj(j-nIsom,i,:) = net%reactions(r)%kf | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:1056 | |
| if (j - nIsom <= nReac) Fim(i,j-nIsom,:) = net%reactions(r)%kb | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:1058 | |
| if (i - nIsom <= nReac) Fim(j,i-nIsom,:) = net%reactions(r)%kf | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:1059 | |
| Gnj(i-nIsom,j,:) = net%reactions(r)%kb | |
| 1 | |
| Error: 'reactions' at (1) is not a member of the 'network' structure | |
| In file network.f90:1061 | |
| end do | |
| 1 | |
| Error: Expecting END SUBROUTINE statement at (1) | |
| In file network.f90:1070 | |
| collFreq(i) = net%isomers(i)%collFreq * & | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:1083 | |
| E0(i) = net%isomers(i)%E0 | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:1084 | |
| collFreq(i) = net%isomers(i)%collFreq | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:1085 | |
| call collisionMatrix(T, P, Elist, collFreq, net%isomers(i)%dens | |
| 1 | |
| Error: 'isomers' at (1) is not a member of the 'network' structure | |
| In file network.f90:792 | |
| subroutine network_getEnergyGrains(Emin, Emax, dE0, nGrains0, Elist) | |
| 1 | |
| Error: Symbol 'elist' at (1) has no IMPLICIT type | |
| In file network.f90:828 | |
| Elist) | |
| 1 | |
| Error: Symbol 'elist' at (1) has no IMPLICIT type | |
| In file network.f90:343 | |
| hind, Nhind, symm, linear, densStates, msg) | |
| 1 | |
| Error: Symbol 'hind' at (1) has no IMPLICIT type | |
| In file network.f90:342 | |
| call densityOfStates(Elist, nGrains, vib, Nvib, rot, Nrot, & | |
| 1 | |
| Error: Symbol 'vib' at (1) has no IMPLICIT type | |
| In file network.f90:337 | |
| if (size(rot) == 1) linear = 1 | |
| 1 | |
| Error: Symbol 'rot' at (1) has no IMPLICIT type | |
| In file network.f90:873 | |
| call network_getEnergyGrains(Emin, Emax, dE, nE, Elist) | |
| 1 | |
| Error: Type/rank mismatch in argument 'elist' at (1) | |
| In file network.f90:874 | |
| call isomer_getDensityOfStates(net, isom, Elist, nE) | |
| 1 | |
| Error: Type/rank mismatch in argument 'elist' at (1) | |
| In file network.f90:875 | |
| call isomer_getEqDist(isom, Elist, nE, Tmax) | |
| 1 | |
| Error: Type/rank mismatch in argument 'e' at (1) | |
| In file network.f90:908 | |
| Emax = Elist(r) + maxIsomerE0 + maxReactionE0 - Emin | |
| 1 | |
| Error: Function 'elist' at (1) has no IMPLICIT type | |
| In file network.f90:925 | |
| call network_getEnergyGrains(Emin, Emax, grainSize, nGrains, Elist) | |
| 1 | |
| Error: Type/rank mismatch in argument 'elist' at (1) | |
| In file network.f90:927 | |
| write (1,*) ' Using', size(Elist), 'grains of size', Elist(2) - Elis | |
| 1 | |
| Error: 'array' argument of 'size' intrinsic at (1) must be an array | |
| In file network.f90:927 | |
| Elist(1), 'J/mol in range 0 to', Emax, 'J/mol' | |
| 1 | |
| Error: Function 'elist' at (1) has no IMPLICIT type | |
| In file network.f90:820 | |
| if (allocated(Elist)) deallocate(Elist) | |
| 1 | |
| Error: 'array' argument of 'allocated' intrinsic at (1) must be an array | |
| In file network.f90:337 | |
| if (size(rot) == 1) linear = 1 | |
| 1 | |
| Error: 'array' argument of 'size' intrinsic at (1) must be an array | |
| make: *** [../../build/fame/network.o] Error 1 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment