demona: D:/demona/2.0/manual/doc/2-31set/welcome.f90 Source File

00001 subroutine welcome(opt)
00002 
00003 
00004 implicit none
00005 
00006 integer opt
00007 
00008 integer majorVer,minorVer
00009 
00010 majorVer=2
00011 minorVer=1
00012 
00013 
00014 
00015 if (opt.eq.1) then
00016 
00017 
00018         print*,'demona version 2.1'
00019 
00020 
00021 end if
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 end subroutine welcome