← Back to branch summary

~ubuntu-branches/ubuntu/vivid/atlas/vivid

« back to all changes in this revision

Viewing changes to CONFIG/src/backend/f2cnameF.f

  • Committer: Bazaar Package Importer
  • Author(s): Sylvestre Ledru
  • Date: 2009-09-17 23:31:54 UTC
  • mto: (2.2.1 experimental)
  • mto: This revision was merged to the branch mainline in revision 10.
  • Revision ID: james.westby@ubuntu.com-20090917233154-9esw88ub02twbuab
Tags: upstream-3.8.3
Import upstream version 3.8.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
CONFIG/src/backend/f2cnameF.f
 
1
      PROGRAM NAMTST
 
2
      EXTERNAL C_ROUTINE
 
3
      DOUBLE PRECISION D
 
4
*
 
5
      D = 0.0
 
6
      CALL C_ROUTINE(D)
 
7
      IF (D .EQ. 1.0) THEN
 
8
         PRINT*,'F2C name=-DAdd_'
 
9
      ELSE IF (D .EQ. 2.0) THEN
 
10
         PRINT*,'F2C name=-DNoChange'
 
11
      ELSE IF (D .EQ. 3.0) THEN
 
12
         PRINT*,'F2C name=-DUpCase'
 
13
      ELSE IF (D .EQ. 4.0) THEN
 
14
         PRINT*,'F2C name=-DAdd__'
 
15
      ELSE
 
16
         PRINT*, 'ERROR'
 
17
      ENDIF
 
18
*
 
19
      STOP
 
20
      END