charj: leanmd update
[charm.git] / src / langs / f90charm / futil.f90
1       PROGRAM main1
2
3       character*80 argv(0:99)
4       integer argc, length(0:99)
5       integer i,ierr
6       
7 !      argc = ipxfargc()
8       
9 !      do i = 0,argc
10 !         call pxfgetarg(i,argv(i),length(i),ierr)
11 !         if (ierr .ne. 0) print*,'Arg ',i,' error'
12 !      end do
13
14       argc = IARGC()
15       do i = 0,argc
16          call GETARG(i,argv(i))
17          length(i) = LEN_TRIM(argv(i));
18       end do
19
20       call conversemain(argc,argv,length)
21
22       END
23