program ex0701
implicit none
integer :: A=1, b=2
call sub1()
write(*,*) 'In main program:’
write(*, '(2(A3,I3))’) 'A=' ,A, 'B=' ,B
stop
end program ex0801
subroutine sub1()
implicit none
integer :: A=3, B=4
write(*,*) 'In subroutine sub1:’
write(*, '(2(A3,I3))') 'A=' , A, 'B=' ,B
return
end subroutine sub1