MoDeNa/a03706_source.html

 program hahtf
     use tests, only: loadparameters,eqcond,eqcond_por
     use ioutils, only: newunit
     use constants, only: mfi
     implicit none
     write(*,*) 'Welcome in hahtf'
     open (newunit(mfi),file='hahtf.out')
     write(mfi,*) 'Welcome in hahtf'
     call loadparameters
     call eqcond(1)
     ! call eqcond_por
     ! call eqcond_dcell
     ! call eqcond_strut
     write(*,*) 'Program exited normally'
     write(mfi,*) 'Program exited normally'
     close(mfi)
 end program
hahtf
program hahtf
Calls the appropriate subroutine, depending on what we want to simulate.
Definition: main.f90:13