title: Error in variable
body: <p>Could you kindly help me in solving the following error. </p>
  
  <pre><code> real(16), parameter :: &amp;                                          
                                1
  Error: Invalid character in name at (1)
  </code></pre>
  
  <p>the module containing the above code is as follows:</p>
  
  <pre><code>module degree_trig
      real(16), parameter :: &amp;
              quadpi = 3.141592653589793238462643383279502884197
      real(16), parameter :: dgr_to_rad = (quadpi/180)
      intrinsic cos, sin, tan
        contains
      function sind(dgr_argument)
          real(4) sind, dgr_argument
              sind = sin(dgr_to_rad * dgr_argument)
      end function
  
      function cosd(dgr_argument)
          real(4) cosd, dgr_argument
              cosd = cos(dgr_to_rad * dgr_argument)
      end function
  
      function tand(dgr_argument)
          real(4) tand, dgr_argument
              tand = tan(dgr_to_rad * dgr_argument)
      end function
  
      function dsind(dgr_argument)
          real(8) dsind, dgr_argument
              dsind = sin(dgr_to_rad * dgr_argument)
      end function
  
      function dcosd(dgr_argument)
          real(8) dcosd, dgr_argument
              dcosd = cos(dgr_to_rad * dgr_argument)
      end function
  
      function dtand(dgr_argument)
          real(8) dtand, dgr_argument
              dtand = tan(dgr_to_rad * dgr_argument)
          end function
        end ! module
  </code></pre>