APO Problem Set
Problem 1:
C*$* ASSERT CONCURRENT CALL
do j=1,80
if(chCard(j:j).EQ.'<') then
* limit value
assumed
chVlt='<'
endif
end do
Problem 2:
totlin = 0.
C$OMP PARALLEL DO SHARED(totlin)
do i=1,nsum
if(
chSumTyp(i).eq.chInfo ) then
totlin = totlin
+ sumlin(i)
endif
end do