我有一个fortran程序，其中包含很多这样的语句：
write(0,*) '*** ERROR *** something went wrong ',i
write(0,*) '*** ERROR *** something happend in line ',i
write(0,*) '*** ERROR *** something happend in line ',i,' of file ',filename
是否可以创建自定义子例程，例如log_error(msg)允许与write相同数量和类型的输入吗？