need to create multiple folder using a loop

[vibhava]

one last small thing that i want to do:
i want to creat different folders to save these files. the steps i want to follow are;
step 1: start a loop from 1 to 50
step 2: create a folder named run example if n = 3 it should make three folders run(1),run(2),run(3)

right now i am trying the folowing code but instead of passing on the value of counter I am getting this:
Do c = 1,50
Inquire(file='C:\WAMView\bnz\WAMSA\run(c)',EXIST=FEXIST)
if(.not.FEXIST) then
res=MAKEDIRQQ('C:\WAMView\bnz\WAMSA\run(c)')
Endif
End Do

do you have some solution for my problem.

vibhava

 

[GerritGroot]

I never used inquire, but it seems that your problem is that you didn't convert the number to a string.

try

CHARACTER*2 :: ch
...

WRITE(ch,c)
(maybe you need to give a format like I2.0 or so)
...

INQUIRE(file='C:\WAMView\bnz\WAMSA\run('//ch//')',EXIST=FEXIST)

Gerrit

 

[GerritGroot]

Sorry I think

"WRITE(ch,c)" SHOULD OF COURSE BE "WRITE(ch,I2)c"

Otherwise there's no place for the format

 

[vibhava]

thanks for your help. it worked