Conference nicctr::kap-users

376.0. "KAP-Fortran on parallel CPU " by TKTV20::MATUZAKI () Tue Apr 15 1997 05:06

	I have a question about KAP-Fortran & KAP-F90 on parallel CPU 
	machine. 

	Digital UNIX 3.2G ( AlphaServer2100 ) 
	Digital Fortran 90 V4.0 (u1) 
	Digital Fortran V40
	KAP for DEC Fortran & KAP Fortran 90 V3.1 

	It,s different on action for an environment variable. This program 
	is close when receive signal. 
	
	# csh 
	# setenv PARALLEL 1
        # limit 
	cputime         unlimited
	filesize        unlimited
	datasize        131072 kbytes
	stacksize       2048 kbytes
	coredumpsize    unlimited
	memoryuse       119768 kbytes
	descriptors     4096 files
	addressspace    1048576 kbytes

	# limit cputime 10 
	# kf90 -fkapargs='-conc' ctime.f 
	# ./a.out 
	cpu limit 
	#                  			<- OK!! 

	# csh 
	# setenv PARALLEL 2 
	# limit 
	cputime         unlimited
	filesize        unlimited
	datasize        131072 kbytes
	stacksize       2048 kbytes
	coredumpsize    unlimited
	memoryuse       119768 kbytes
	descriptors     4096 files
	addressspace    1048576 kbytes

	# kf90 -fkapargs='-conc' ctime.f
	# ./a.out 
	cpu time 				<- NG !! Not end 

	Other Term.............
	
	# ps a | grep -i a.out
	700 ttyq5    T        0:09.69 ./a.out
  	754 ttyq5    S  +     0:00.02 grep -i a.out 

-----	flowing program --------
-----	ctime.f ---------------- 
       include 'signal.f' 
       integer size
       integer*4 fill,flag
       external signal,sigcatch 
       parameter (lc=10,size=500)
       real one(size,size)
       real two(size,size),three(size,size)
       flag=-1
       fill=signal(SIGXCPU,sigcatch,flag)
       do 10 j=1,size
       do 10 i=1,size
          one(i,j)=1.0
          two(i,j)=2.0
          three(i,j)=0.0
   10 continue
       do 20 l=1,lc
          do 20 j=1,size
             do 20 i=1,size
                sum=0.0
                do 30 k=1,size
                   sum=sum+one(i,k)*two(k,j)
   30 continue
                   three(i,j)=three(i,j)+sum
   20 continue
       write(6,100) three(size,size)
  100 format(' end',e22.8)
       stop
       end
       subroutine sigcatch()
       write(6,200)
  200  format('  cpu limit')
       stop
       end
--- end ---------------
---  signal.f ---------
	PARAMETER	SIGHUP	   =1
	PARAMETER	SIGINT	   =2
	PARAMETER	SIGQUIT	   =3
	PARAMETER	SIGILL	   =4
	PARAMETER	SIGTRAP	   =5
	PARAMETER	SIGABRT    =6
	PARAMETER	SIGEMT	   =7
	PARAMETER	SIGFPE	   =8
	PARAMETER	SIGKILL	   =9
	PARAMETER	SIGBUS	  =10
	PARAMETER	SIGSEGV	  =11
	PARAMETER	SIGSYS	  =12
	PARAMETER	SIGPIPE	  =13
	PARAMETER	SIGALRM	  =14
	PARAMETER	SIGTERM	  =15
	PARAMETER	SIGURG 	  =16
	PARAMETER	SIGSTOP	  =17
	PARAMETER	SIGTSTP	  =18
	PARAMETER	SIGCONT	  =19
	PARAMETER	SIGCHLD   =20
	PARAMETER	SIGTTIN   =21
	PARAMETER	SIGTTOU   =22
	PARAMETER	SIGIO	  =23
	PARAMETER	SIGXCPU	  =24
	PARAMETER	SIGXFSZ	  =25
	PARAMETER	SIGVTALRM =26
	PARAMETER	SIGPROF   =27
	PARAMETER	SIGWINCH  =28
	PARAMETER	SIGINFO   =29
	PARAMETER	SIGUSR1   =30
	PARAMETER	SIGUSR2   =31
--- end ----


	��			normal end 
	��			end after interrupt
	��			not end after interrupt 


	PARALLEL	1	1	2 	2  	2		
	cpu limit	5	10	5	10      unlimit 

kf90 ( kf90 -fkapargs='-conc' ctime.f ; ./a.out )
			��	��	��	��	��

kf90 ( kf90 ctime.f ; ./a.out )
			��	��	��	��	��

kf77 ( kf77 -fkapargs='-conc' ctime.f ; ./a.out )	
			��	��	��	��	��

kf77 ( kf77 ctime.f ; ./a.out )
			��	��	��	��	��

f90 ( f90 -wsf 2 ctime.f ; ./a.out -peers 2 -on tktu21 )
			��	��	��	��	��
				
f90 ( f90 -wsf 2 ctime.f ; ./a.out -on tktu21 )
			��	��	��	��	��
			           

	
       	It's a bug ??
	Thank in advance for your help.

							DEC-J/MCS/matsuzaki