subroutine b
print *,'this is b from library a'
return
end
