Search for a File and get the name

• Apr 10, 2013

• #2

xwb

Computer

Apr 29, 2005

535

GB

You'll need something like this so start.

Code:

      program main
      character(len=32):: arg
      integer:: numarg
! print arguments from the command line
      numarg = command_argument_count()
      print *, 'Num arg ', numarg
      do nn = 1, numarg
         call get_command_argument(nn, arg)
         print*, 'arg ', nn, ' = ', arg
      end do
      end

Next, it depends on which OS you are using. All This does is print the command line arguments. This can be used as the filename. To run it from windows, you will need a script that looks something like this

Code:

for %%i in (*.inp) do processdata %%i

 

Upvote 0 Downvote

• Apr 10, 2013

• #3

xwb

Computer

Apr 29, 2005

535

GB

Forgot to add that you use the argument in the first program as the file to be opened.

 

Upvote 0 Downvote

• Apr 10, 2013

• Thread starter
• #4

ehsansharei

Civil/Environmental

Jan 11, 2013

6

DE

Thank you so much for your replay. But you have written the code in Fortran 90 I think (?). By the way I could solve the problem, acquiring the name of the job directly from the software which the subroutine s written for. Thanks a lot again.
Ehsan

 

Upvote 0 Downvote

• Apr 11, 2013

• #5

xwb

Computer

Apr 29, 2005

535

GB

It is F77: just a cut and paste problem that put the program bit in column 1. This one works on GNU and Silverfrost. Other manufacturers may have their own version of it for F77.

 

Upvote 0 Downvote