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