MoDeNa  1.0
Software framework facilitating sequential multi-scale modelling
main.f90
Go to the documentation of this file.
1 
8 
9 
13 program hahtf
14  use tests, only: loadparameters,eqcond,eqcond_por
15  use ioutils, only: newunit
16  use constants, only: mfi
17  implicit none
18  write(*,*) 'Welcome in hahtf'
19  open (newunit(mfi),file='hahtf.out')
20  write(mfi,*) 'Welcome in hahtf'
21  call loadparameters
22  call eqcond(1)
23  ! call eqcond_por
24  ! call eqcond_dcell
25  ! call eqcond_strut
26  write(*,*) 'Program exited normally'
27  write(mfi,*) 'Program exited normally'
28  close(mfi)
29 end program
hahtf
program hahtf
Calls the appropriate subroutine, depending on what we want to simulate.
Definition: main.f90:13