doc: Add serial to list of ci file reserved words
[charm.git] / src / conv-core / fmain.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   call fmain(argc,argv,length)
14
15 END