passing command line argument as parameters

passing command line argument as parameters

I have a routine to get 4 command line argument:
module chk_argumnt
CONTAINS
subroutine chk(x,y)
implicit none
integer::ac
real*4::x,y!,v_a,v_b,e_a,e_b
character(4)::cx,cy,atn1,atn2
! ac=command_argument_count()
write(*,*)command_argument_count()
call get_command_argument(1,cx)
call get_command_argument(2,cy)
call get_command_argument(3,atn1)
call get_command_argument(4,atn2)
read(cy,*)y
read(cx,*)x
write(*,*)atn1,cx,atn2,cy
write(*,*)"from module",x,y
end subroutine chk
end module chk_argumnt

now i want to use them in another routine to initialize variable/
parameters:

program main
use chk_argumnt

real*4::tx=x*10,ty=y*10
! real*4,parameter::tx=x*10,ty=y*10
call chk(x,y)
write(*,*) x
write(*,*) y

end program main

but i cannot do that. What my aim is to supply the main four
parameters from commandline. how can i do that?

4 posts / 0 new
Last post
For more complete information about compiler optimizations, see our Optimization Notice.

sorry for doubleposting.....i dont know if i can delete thread.

Quoting - roddur
sorry for doubleposting.....i dont know if i can delete thread.

When you are logged in, you should have a Delete button below the thread.
PARAMETER means a compile time constant. The compiler ought to refuse to compile anything which attempts to store run-time data in a PARAMETER constant.

Quoting - tim18

When you are logged in, you should have a Delete button below the thread.
PARAMETER means a compile time constant. The compiler ought to refuse to compile anything which attempts to store run-time data in a PARAMETER constant.

Using the protected attribute will cause variables to be read-only from outside the module (or scoping unit I think), i.e. within the module they may be modified, but to any programs which access the module via use association these ariables will behave as if they are parameters (i.e. they cannot appear on the left hand side of an assignment statement etc.).

I have attached a copy of a module I use to do exactly this: get command line arguments and options, as well as a few other things.

Attachments: 

AttachmentSize
Download IOutils.f9012.44 KB
-Zaak

Leave a Comment

Please sign in to add a comment. Not a member? Join today