Need Help S5-S7 Convert

Dear All,

I have an FB198 code as below :

Segment 1
Name :RAD:GP
Decl :XE I/Q/D/B/T/C: I BI/BY/W/D: D
Decl :J I/Q/D/B/T/C: Q BI/BY/W/D: BI
Decl :XA I/Q/D/B/T/C: Q BI/BY/W/D: D

000E :L =XE
000F :T FD 252
0010 :L FW 253
0011 :L KH 8000
0013 :><G
0014 :JC =M001
0015 :L FW 254
0016 :L KH 0001
0018 :+F
0019 :T FW 254
001A :JU =M002
001B M001 :L =XE
001C :JC =M002
001D M002 :RB =J
001E :L FY 252
001F :AN F 252.7
0020 :JC =M003
0021 :L KH FF00
0023 :OW
0024 M003 :T FW 237
0025 :L =XE
0026 :L KG -1701412+39
0029 :><D
002A :JC =M004
002B :S =J
002C :L KG +5000000+00
002F :T FD 248
0030 :L KG +1844674+20
0033 :T FD 244
0034 :JU =M005
0035 M004 :AN F 253.7
0036 :JC =M006
0037 :S =J
0038 :L KG -1000000+01
003B :L FD 252
003C :XG
003D :T FD 252
003E M006 :A F 252.0
003F :JC =M007
0040 :L FD 252
0041 :T FD 248
0042 :L KB 0
0043 :T FY 248
0044 :T FD 244
0045 :L KB 64
0046 :T FY 245
0047 :L FW 237
0048 :L KB 2
0049 ::F
004A :L KB 1
004B :+F
004C :T FY 244
004D :JU =M005
004E M007 :L FD 252
004F :T FD 248
0050 :L KB 1
0051 :T FY 248
0052 :L KB 0
0053 :T FW 246
0054 :L KB 64
0055 :T FY 245
0056 :L FW 237
0057 :L KB 1
0058 :+F
0059 :L KB 2
005A ::F
005B :T FY 244
005C M005 :L FD 248
005D :T FD 240
005E :L KB 5
005F :T FY 239
0060 M008 :L FD 248
0061 :L FD 240
0062 ::G
0063 :L FD 240
0064 :+G
0065 :L KG +5000000+00
0068 :XG
0069 :T FD 240
006A :L FY 239
006B :L KB 1
006C :-F
006D :T FY 239
006E :JN =M008
006F :L FD 240
0070 :L FD 244
0071 :XG
0072 :T =XA
0073 :JU =M009
0074 :L KH D7E2
0076 M009 :BE


and it is called in other block :

:JU FB 198
Name :RAD:GP
XE : DD 4
J : F 245.7
XA : DD 4


How the actual code of FB198 in S7 ?

Thanks for all of your support.

Regards,

You will find the substitute in the S5-S7Convert library.
Kalle

Awesome !!

I didn't realize if it can be replaced by FC68 (RAD_GP Floating Point Square Root)on standard library.

Thanks KalleOllsen..

Regards,