aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added print messages to let user know whats going on

Browse source
This commit is contained in:
Alex Selimov 2020-01-28 10:42:30 -05:00
parent e91bcd5d1e
commit 9ebdfff0a1
6 changed files with 62 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

40
src/main.f90
View file

@ -1,25 +1,39 @@
program main
!**************************** CACmb *******************************
!* CAC model building toolkit *
! ____________ *
! / / *
! / / *
! /___________/ *
! _|_ _|_ _|____________ *
! / / *
! / / *
! /___________/ *
! *
!*******************************************************************
!**************************** CACmb ********************
!* CAC model building toolkit *
!* ____________ *
!* / / *
!* / / *
!* /___________/ *
!* _|_ _|_ _|____________ *
!* / / *
!* / / *
!* /___________/ *
!* *
!********************************************************
use parameters
use elements
use io
integer :: i, end_mode_arg, arg_num, arg_pos
character(len=100) :: argument
!Print introduction text
print *, '*********************** CACmb *********************'
print *, '* CAC model building toolkit *'
print *, '* _______ *'
print *, '* / / *'
print *, '* / / *'
print *, '* /______ / *'
print *, '* _|_ _|_ _|_______ *'
print *, '* / / *'
print *, '* / / *'
print *, '* /______ / *'
print *, '* *'
print *, '****************************************************'
!Call initialization functions
call lattice_init
call box_init