program cbsub
integer :: a,b,c,d
call bigsub(a,b,c,d)
write(*,10)a,b,c,d
10 format(' In main, a..d = ',4I5)
end program cbsub

