Hi -
Is anyone out there using KAP-F90 on an SMP system?
I just installed the latest version from the July 96 CDROM and fixed
fort90 as instructed. I'm having problems getting anything to run.
As an example:
I set environment variables:
PARALLEL=6
KMP_STACKSIZE=524288000
KMP_SPINLOCKS=no
I compile a test case:
> kf90 -v -r8 foo.f -o foo -lkmp_osf -threads -ldxml
/usr/bin/kapf90 -cmp=./foo.cmp.f foo.f -real=8 -tune=EV5 -natural
KAP/Digital_UA_F90 3.0 k271210 960605 25-Jul-1996 10:09:40
### C*KAP* PARALLEL REGION
### in line 7 procedure FOO of file foo.f ###
The variable "DFAC" was placed on the SHARED list.
The variable "I" was placed on the LOCAL list.
0 errors in file foo.f
KAP -- Syntax Warnings Detected
/usr/bin/f90 -fast -v -r8 ./foo.cmp.f -o foo -lkmp_osf -threads -ldxml -tune host -non_shared
/usr/lib/cmplrs/fort90/decfort90 -fast -real_size 64 -tune host -non_shared -I/usr/lib/cmplrs/hpfrtl -reentrancy threaded -o /tmp/forAAAaabrqa.o ./foo.cmp.f
/usr/bin/cc -v -o foo -non_shared /usr/lib/cmplrs/fort90/for_main.o /tmp/forAAAaabrqa.o -O4 -lkmp_osf -ldxml -qlshpf -nocount -lUfor -lfor -lFutil -lm_4sqrt -lm -lots -threads
/usr/lib/cmplrs/cc/ld -o foo -g0 -O4 -non_shared /usr/lib/cmplrs/cc/crt0.o /usr/lib/cmplrs/fort90/for_main.o /tmp/forAAAaabrqa.o -qlkmp_osf_r -lkmp_osf -qldxml_r -ldxml -qlshpf_r -qlshpf -nocount -qlUfor_r -lUfor -qlfor_r -lfor -qlFutil_r -lFutil -qlm_4sqrt_r -lm_4sqrt -qlm_r -lm -qlots_r -lots -lpthreads -lmach -lexc -lc_r -lc
0.3u 0.4s 0:04 19% 0+48k 850+405io 26pf+0w
I try to run:
> ./foo
%DECthreads bugcheck (version V3.12-311), terminating execution.
% Running on DEC OSF/1 AXP [OSF1 alpha V3.2(41); cpu type 39, configured for 6
% cpus, 6 cpus in box, 511Mb]
% Reason: set_noaccess: 12 protecting 0x14005e000 to 0x14005ffff
% See 'cma_dump.log' for state information.
Abort process
It will run with PARALLEL=1
Has anyone used KAP-F90 with the below directives and could steer me
in the right direction? (I am only really interested in using these
types of directives).
thanks
-dave
Here is the code. (If you are really interested, I can send you the
cma_dump.log file). [Explicitly putting in SHARED and LOCAL
directives makes no difference].
program foo
integer i
real, dimension(1024) :: dfac
C*KAP* PARALLEL REGION
C*KAP* PARALLEL DO
do i=1,1024
dfac(i)=i
enddo
C*KAP* END PARALLEL REGION
end
Received on Thu Jul 25 1996 - 20:00:04 NZST