add some EXTERNAL to pacify Intel Fortran

git-svn-id: https://svn.r-project.org/R/trunk@84708 00db46b3-68df-0310-9c12-caf00c1e9a41

src/main/xxxpr.f

@@ -26,6 +26,7 @@ subroutine intpr(label, nchar, data, ndata)
  character*(*) label
  integer data(ndata)
  integer nc
+ EXTERNAL intpr0
  nc = nchar
  if(nc .lt. 0) nc = len(label)
  call intpr0(label, nc, data, ndata)
@@ -36,6 +37,7 @@ subroutine realpr(label, nchar, data, ndata)
  character*(*) label
  real data(ndata)
  integer nc
+ EXTERNAL realp0
  nc = nchar
  if(nc .lt. 0) nc = len(label)
  call realp0(label, nc, data, ndata)
@@ -46,6 +48,7 @@ subroutine dblepr(label, nchar, data, ndata)
  character*(*) label
  double precision data(ndata)
  integer nc
+ EXTERNAL dblep0
  nc = nchar
  if(nc .lt. 0) nc = len(label)
  call dblep0(label, nc, data, ndata)
@@ -57,6 +60,7 @@ subroutine intpr1(label, nchar, var)
  character*(*) label
  integer var, data(1)
  integer nc
+ EXTERNAL intpr0
  nc = nchar
  if(nc .lt. 0) nc = len(label)
  data(1) = var
@@ -68,6 +72,7 @@ subroutine realpr1(label, nchar, var)
  character*(*) label
  real var, data(1)
  integer nc
+ EXTERNAL realp0
  nc = nchar
  if(nc .lt. 0) nc = len(label)
  data(1) = var
@@ -79,6 +84,7 @@ subroutine dblepr1(label, nchar, var)
  character*(*) label
  double precision var, data(1)
  integer nc
+ EXTERNAL dblep0
  nc = nchar
  if(nc .lt. 0) nc = len(label)
  data(1) = var
@@ -90,6 +96,7 @@ subroutine labelpr(label, nchar)
  character*(*) label
  integer data(1)
  integer nc
+ EXTERNAL intpr0
  nc = nchar
  if(nc .lt. 0) nc = len(label)
  data(1) = 0
@@ -99,10 +106,12 @@ subroutine labelpr(label, nchar)
 C R-only Fortran versions of error and warning
  subroutine rexit(msg)
  character*(*) msg
+ EXTERNAL rexitc
  call rexitc(msg, len(msg))
  end
 
  subroutine rwarn(msg)
  character*(*) msg
+ EXTERNAL rwarnc
  call rwarnc(msg, len(msg))
  end