Module User_Module Implicit None Save !======================================================= ! Define logicals Logical readham,readpot,xuan,test,readin Character(len=50) iwf_read,iwf_write ! Possible configurations ! readham.or.readpot.or.xuan = .true. not simultaneously ! test can be true along with readham or readpot End Module User_Module