Changeset 4799

Show
Ignore:
Timestamp:
06/23/09 12:14:56 (5 months ago)
Author:
jayesh
Message:

Using consistent naming convention for fortran func name type decider keys

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • mpich2/trunk/winconfigure.wsf

    r4652 r4799  
    222222bf77_name_upper = True 
    223223bf77_name_mixed = False 
    224 b77_name_mixed_uscore = False 
     224bf77_name_mixed_uscore = False 
    225225unhandled_definitions = "" 
    226226unhandled_definitions_count = 0 
     
    320320        bf77_name_mixed = True 
    321321  ElseIf argValue = "--f77_name_mixed_uscore" Then 
    322         b77_name_mixed_uscore = True 
     322        bf77_name_mixed_uscore = True 
    323323  ElseIf argValue = "--defmsg" Then 
    324324    GenerateDefmsg() 
     
    25392539                                        End If 
    25402540                                Case "F77_NAME_LOWER_USCORE" 
    2541                                         If b77_name_lower_uscore Then 
     2541                                        If bf77_name_lower_uscore Then 
    25422542                                                fout.WriteLine("#define F77_NAME_LOWER_USCORE") 
    25432543                                        Else 
     
    25512551                                        End If 
    25522552                                Case "F77_NAME_UPPER" 
    2553                                         if b77_name_upper Then 
     2553                                        if bf77_name_upper Then 
    25542554                                                fout.WriteLine("#define F77_NAME_UPPER") 
    25552555                                        Else 
     
    25572557                                        End If 
    25582558                                Case "F77_NAME_MIXED" 
    2559                                         if b77_name_mixed Then 
     2559                                        if bf77_name_mixed Then 
    25602560                                                fout.WriteLine("#define F77_NAME_MIXED 1") 
    25612561                                        Else 
     
    25632563                                        End If 
    25642564                                Case "F77_NAME_MIXED_USCORE" 
    2565                                         if b77_name_mixed_uscore Then 
     2565                                        if bf77_name_mixed_uscore Then 
    25662566                                                fout.WriteLine("#define F77_NAME_MIXED_USCORE 1") 
    25672567                                        Else